classdata.vb

编程之道VB.NETt程序设计入门-589M.zip

Imports System
Imports System.Data

Namespace Nozama.General

    Public Class ClassData
        Inherits DataSet

        Public Const CLASSES_TABLE As String = "Classes"

        Public Const UID As String = "UID"
        Public Const NAME As String = "Name"

        Public Sub New()
            MyBase.New()

            Dim table As DataTable = New DataTable(CLASSES_TABLE)

            With table.Columns
                .Add(UID, GetType(System.Int32))
                .Add(NAME, GetType(System.String))
            End With

            Me.Tables.Add(table)
        End Sub

    End Class

End Namespace