38 lines
550 B
VB.net
38 lines
550 B
VB.net
Public Class dataset
|
|
|
|
Private _id As Integer
|
|
Private _name As String
|
|
|
|
Public Sub New(id As Integer, name As String)
|
|
|
|
_id = id
|
|
_name = name
|
|
|
|
End Sub
|
|
|
|
Public Property ID As Integer
|
|
|
|
Set(value As Integer)
|
|
_id = value
|
|
End Set
|
|
|
|
Get
|
|
Return _id
|
|
End Get
|
|
|
|
End Property
|
|
|
|
Public Property NAME As String
|
|
|
|
Set(value As String)
|
|
_name = value
|
|
End Set
|
|
|
|
Get
|
|
Return _name
|
|
End Get
|
|
|
|
End Property
|
|
|
|
End Class
|