dataset1.vb

小开发软件

            row客户表Row.ItemArray = New Object() {客户号, 客户名称, 联系人, 地址, 邮政编码, 电话}
            Me.Rows.Add(row客户表Row)
            Return row客户表Row
        End Function
        
        Public Function FindBy客户号(ByVal 客户号 As String) As 客户表Row
            Return CType(Me.Rows.Find(New Object() {客户号}),客户表Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 客户表DataTable = CType(MyBase.Clone,客户表DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 客户表DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column客户号 = Me.Columns("客户号")
            Me.column客户名称 = Me.Columns("客户名称")
            Me.column联系人 = Me.Columns("联系人")
            Me.column地址 = Me.Columns("地址")
            Me.column邮政编码 = Me.Columns("邮政编码")
            Me.column电话 = Me.Columns("电话")
        End Sub
        
        Private Sub InitClass()
            Me.column客户号 = New DataColumn("客户号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客户号)
            Me.column客户名称 = New DataColumn("客户名称", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客户名称)
            Me.column联系人 = New DataColumn("联系人", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column联系人)
            Me.column地址 = New DataColumn("地址", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column地址)
            Me.column邮政编码 = New DataColumn("邮政编码", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column邮政编码)
            Me.column电话 = New DataColumn("电话", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column电话)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column客户号}, true))
            Me.column客户号.AllowDBNull = false
            Me.column客户号.Unique = true
            Me.column客户名称.AllowDBNull = false
        End Sub
        
        Public Function New客户表Row() As 客户表Row
            Return CType(Me.NewRow,客户表Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 客户表Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(客户表Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.客户表RowChangedEvent) Is Nothing) Then
                RaiseEvent 客户表RowChanged(Me, New 客户表RowChangeEvent(CType(e.Row,客户表Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.客户表RowChangingEvent) Is Nothing) Then
                RaiseEvent 客户表RowChanging(Me, New 客户表RowChangeEvent(CType(e.Row,客户表Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.客户表RowDeletedEvent) Is Nothing) Then
                RaiseEvent 客户表RowDeleted(Me, New 客户表RowChangeEvent(CType(e.Row,客户表Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.客户表RowDeletingEvent) Is Nothing) Then
                RaiseEvent 客户表RowDeleting(Me, New 客户表RowChangeEvent(CType(e.Row,客户表Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove客户表Row(ByVal row As 客户表Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 客户表Row
        Inherits DataRow
        
        Private table客户表 As 客户表DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table客户表 = CType(Me.Table,客户表DataTable)
        End Sub
        
        Public Property 客户号 As String
            Get
                Return CType(Me(Me.table客户表.客户号Column),String)
            End Get
            Set
                Me(Me.table客户表.客户号Column) = value
            End Set
        End Property
        
        Public Property 客户名称 As String
            Get
                Return CType(Me(Me.table客户表.客户名称Column),String)
            End Get
            Set
                Me(Me.table客户表.客户名称Column) = value
            End Set
        End Property
        
        Public Property 联系人 As String
            Get
                Try 
                    Return CType(Me(Me.table客户表.联系人Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table客户表.联系人Column) = value
            End Set
        End Property
        
        Public Property 地址 As String
            Get
                Try 
                    Return CType(Me(Me.table客户表.地址Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table客户表.地址Column) = value
            End Set
        End Property
        
        Public Property 邮政编码 As String
            Get
                Try 
                    Return CType(Me(Me.table客户表.邮政编码Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table客户表.邮政编码Column) = value
            End Set
        End Property
        
        Public Property 电话 As String
            Get
                Try 
                    Return CType(Me(Me.table客户表.电话Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table客户表.电话Column) = value
            End Set
        End Property
        
        Public Function Is联系人Null() As Boolean
            Return Me.IsNull(Me.table客户表.联系人Column)
        End Function
        
        Public Sub Set联系人Null()
            Me(Me.table客户表.联系人Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is地址Null() As Boolean
            Return Me.IsNull(Me.table客户表.地址Column)
        End Function
        
        Public Sub Set地址Null()
            Me(Me.table客户表.地址Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is邮政编码Null() As Boolean
            Return Me.IsNull(Me.table客户表.邮政编码Column)
        End Function
        
        Public Sub Set邮政编码Null()
            Me(Me.table客户表.邮政编码Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is电话Null() As Boolean
            Return Me.IsNull(Me.table客户表.电话Column)
        End Function
        
        Public Sub Set电话Null()
            Me(Me.table客户表.电话Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 客户表RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 客户表Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 客户表Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 客户表Row
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class