<Serializable()> _
Public Class CDataset
Inherits System.Data.DataTable Private m_index As Integer = 0 '/-------------------------------------------------------
'/*** 校验给定的索引值是否在允许范围之内
'/*** 参数index -- 给定的索引值
'/*** 返回值 ----- 符合范围返回true, 否则返回false
'/-------------------------------------------------------
Protected Function ValidateIndex(ByVal Index As Integer) As Boolean
Return (Index >= 0 And Index <= Me.Rows.Count - 1)
End Function '/-------------------------------------------------------
'/*** 当前记录的索引值
'/-------------------------------------------------------
Public Property CurrentIndex() As Integer
Get
Return Me.m_index
End Get
Set(ByVal Value As Integer)
If Me.ValidateIndex(Value) Then
Me.m_index = Value
Else
Throw New System.Exception("索引超出允许范围")
End If
End Set
End Property
end class
Public Class CDataset
Inherits System.Data.DataTable Private m_index As Integer = 0 '/-------------------------------------------------------
'/*** 校验给定的索引值是否在允许范围之内
'/*** 参数index -- 给定的索引值
'/*** 返回值 ----- 符合范围返回true, 否则返回false
'/-------------------------------------------------------
Protected Function ValidateIndex(ByVal Index As Integer) As Boolean
Return (Index >= 0 And Index <= Me.Rows.Count - 1)
End Function '/-------------------------------------------------------
'/*** 当前记录的索引值
'/-------------------------------------------------------
Public Property CurrentIndex() As Integer
Get
Return Me.m_index
End Get
Set(ByVal Value As Integer)
If Me.ValidateIndex(Value) Then
Me.m_index = Value
Else
Throw New System.Exception("索引超出允许范围")
End If
End Set
End Property
end class
Public Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal contex As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, contex)
End Sub