reference.vb

我感觉还可以的VB代码

        End Sub
        
        Public Delegate Sub CustOrderHistRowChangeEventHandler(ByVal sender As Object, ByVal e As CustOrderHistRowChangeEvent)
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class CustOrderHistDataTable
            Inherits DataTable
            Implements System.Collections.IEnumerable
            
            Private columnProductName As DataColumn
            
            Private columnTotal As DataColumn
            
            Friend Sub New()
                MyBase.New("CustOrderHist")
                Me.InitClass
            End Sub
            
            Friend Sub New(ByVal table As DataTable)
                MyBase.New(table.TableName)
                If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
                    Me.CaseSensitive = table.CaseSensitive
                End If
                If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
                    Me.Locale = table.Locale
                End If
                If (table.Namespace <> table.DataSet.Namespace) Then
                    Me.Namespace = table.Namespace
                End If
                Me.Prefix = table.Prefix
                Me.MinimumCapacity = table.MinimumCapacity
                Me.DisplayExpression = table.DisplayExpression
            End Sub
            
            <System.ComponentModel.Browsable(false)>  _
            Public ReadOnly Property Count As Integer
                Get
                    Return Me.Rows.Count
                End Get
            End Property
            
            Friend ReadOnly Property ProductNameColumn As DataColumn
                Get
                    Return Me.columnProductName
                End Get
            End Property
            
            Friend ReadOnly Property TotalColumn As DataColumn
                Get
                    Return Me.columnTotal
                End Get
            End Property
            
            Public Default ReadOnly Property Item(ByVal index As Integer) As CustOrderHistRow
                Get
                    Return CType(Me.Rows(index),CustOrderHistRow)
                End Get
            End Property
            
            Public Event CustOrderHistRowChanged As CustOrderHistRowChangeEventHandler
            
            Public Event CustOrderHistRowChanging As CustOrderHistRowChangeEventHandler
            
            Public Event CustOrderHistRowDeleted As CustOrderHistRowChangeEventHandler
            
            Public Event CustOrderHistRowDeleting As CustOrderHistRowChangeEventHandler
            
            Public Overloads Sub AddCustOrderHistRow(ByVal row As CustOrderHistRow)
                Me.Rows.Add(row)
            End Sub
            
            Public Overloads Function AddCustOrderHistRow(ByVal ProductName As String, ByVal Total As Integer) As CustOrderHistRow
                Dim rowCustOrderHistRow As CustOrderHistRow = CType(Me.NewRow,CustOrderHistRow)
                rowCustOrderHistRow.ItemArray = New Object() {ProductName, Total}
                Me.Rows.Add(rowCustOrderHistRow)
                Return rowCustOrderHistRow
            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 CustOrderHistDataTable = CType(MyBase.Clone,CustOrderHistDataTable)
                cln.InitVars
                Return cln
            End Function
            
            Protected Overrides Function CreateInstance() As DataTable
                Return New CustOrderHistDataTable
            End Function
            
            Friend Sub InitVars()
                Me.columnProductName = Me.Columns("ProductName")
                Me.columnTotal = Me.Columns("Total")
            End Sub
            
            Private Sub InitClass()
                Me.columnProductName = New DataColumn("ProductName", GetType(System.String), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnProductName)
                Me.columnTotal = New DataColumn("Total", GetType(System.Int32), Nothing, System.Data.MappingType.Element)
                Me.Columns.Add(Me.columnTotal)
                Me.columnProductName.AllowDBNull = false
                Me.columnTotal.ReadOnly = true
            End Sub
            
            Public Function NewCustOrderHistRow() As CustOrderHistRow
                Return CType(Me.NewRow,CustOrderHistRow)
            End Function
            
            Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
                Return New CustOrderHistRow(builder)
            End Function
            
            Protected Overrides Function GetRowType() As System.Type
                Return GetType(CustOrderHistRow)
            End Function
            
            Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanged(e)
                If (Not (Me.CustOrderHistRowChangedEvent) Is Nothing) Then
                    RaiseEvent CustOrderHistRowChanged(Me, New CustOrderHistRowChangeEvent(CType(e.Row,CustOrderHistRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowChanging(e)
                If (Not (Me.CustOrderHistRowChangingEvent) Is Nothing) Then
                    RaiseEvent CustOrderHistRowChanging(Me, New CustOrderHistRowChangeEvent(CType(e.Row,CustOrderHistRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleted(e)
                If (Not (Me.CustOrderHistRowDeletedEvent) Is Nothing) Then
                    RaiseEvent CustOrderHistRowDeleted(Me, New CustOrderHistRowChangeEvent(CType(e.Row,CustOrderHistRow), e.Action))
                End If
            End Sub
            
            Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
                MyBase.OnRowDeleting(e)
                If (Not (Me.CustOrderHistRowDeletingEvent) Is Nothing) Then
                    RaiseEvent CustOrderHistRowDeleting(Me, New CustOrderHistRowChangeEvent(CType(e.Row,CustOrderHistRow), e.Action))
                End If
            End Sub
            
            Public Sub RemoveCustOrderHistRow(ByVal row As CustOrderHistRow)
                Me.Rows.Remove(row)
            End Sub
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class CustOrderHistRow
            Inherits DataRow
            
            Private tableCustOrderHist As CustOrderHistDataTable
            
            Friend Sub New(ByVal rb As DataRowBuilder)
                MyBase.New(rb)
                Me.tableCustOrderHist = CType(Me.Table,CustOrderHistDataTable)
            End Sub
            
            Public Property ProductName As String
                Get
                    Return CType(Me(Me.tableCustOrderHist.ProductNameColumn),String)
                End Get
                Set
                    Me(Me.tableCustOrderHist.ProductNameColumn) = value
                End Set
            End Property
            
            Public Property Total As Integer
                Get
                    Try 
                        Return CType(Me(Me.tableCustOrderHist.TotalColumn),Integer)
                    Catch e As InvalidCastException
                        Throw New StrongTypingException("Cannot get value because it is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustOrderHist.TotalColumn) = value
                End Set
            End Property
            
            Public Function IsTotalNull() As Boolean
                Return Me.IsNull(Me.tableCustOrderHist.TotalColumn)
            End Function
            
            Public Sub SetTotalNull()
                Me(Me.tableCustOrderHist.TotalColumn) = System.Convert.DBNull
            End Sub
        End Class
        
        <System.Diagnostics.DebuggerStepThrough()>  _
        Public Class CustOrderHistRowChangeEvent
            Inherits EventArgs
            
            Private eventRow As CustOrderHistRow
            
            Private eventAction As DataRowAction
            
            Public Sub New(ByVal row As CustOrderHistRow, ByVal action As DataRowAction)
                MyBase.New
                Me.eventRow = row
                Me.eventAction = action
            End Sub
            
            Public ReadOnly Property Row As CustOrderHistRow
                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
End Namespace