<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