ds_shouhuodan.vb

本软件设计为在"采购部""工程部""财务部""总经理"等部门之间的采购审核流转等事宜

        End Property
        
        Public Property 项目经理审批意见 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批意见Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批意见Column) = value
            End Set
        End Property
        
        Public Property 项目经理审批结果 As String
            Get
                Try 
                    Return CType(Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批结果Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批结果Column) = value
            End Set
        End Property
        
        Public Function Is工程名称Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.工程名称Column)
        End Function
        
        Public Sub Set工程名称Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.工程名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is收货日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.收货日期Column)
        End Function
        
        Public Sub Set收货日期Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.收货日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is订购单编号Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.订购单编号Column)
        End Function
        
        Public Sub Set订购单编号Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.订购单编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is供应商Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.供应商Column)
        End Function
        
        Public Sub Set供应商Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.供应商Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is收货人Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.收货人Column)
        End Function
        
        Public Sub Set收货人Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.收货人Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is日期Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.日期Column)
        End Function
        
        Public Sub Set日期Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.备注Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is标志Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.标志Column)
        End Function
        
        Public Sub Set标志Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.标志Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is录入时间Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.录入时间Column)
        End Function
        
        Public Sub Set录入时间Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.录入时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.项目经理Column)
        End Function
        
        Public Sub Set项目经理Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批时间Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批时间Column)
        End Function
        
        Public Sub Set项目经理审批时间Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批意见Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批意见Column)
        End Function
        
        Public Sub Set项目经理审批意见Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批意见Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is项目经理审批结果Null() As Boolean
            Return Me.IsNull(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批结果Column)
        End Function
        
        Public Sub Set项目经理审批结果Null()
            Me(Me.tablefk_cailiao_shouhuo_zhudan.项目经理审批结果Column) = System.Convert.DBNull
        End Sub
        
        Public Function Getfk_cailiao_shouhuo_xiangdanRows() As fk_cailiao_shouhuo_xiangdanRow()
            Return CType(Me.GetChildRows(Me.Table.ChildRelations("fk_cailiao_shouhuo_zhudanfk_cailiao_shouhuo_xiangdan1")),fk_cailiao_shouhuo_xiangdanRow())
        End Function
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shouhuo_zhudanRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As fk_cailiao_shouhuo_zhudanRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As fk_cailiao_shouhuo_zhudanRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As fk_cailiao_shouhuo_zhudanRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class fk_cailiao_shouhuo_xiangdanDataTable
        Inherits DataTable
        Implements System.Collections.IEnumerable
        
        Private column编号 As DataColumn
        
        Private column序号 As DataColumn
        
        Private column物料名称 As DataColumn
        
        Private column描述 As DataColumn
        
        Private column单位 As DataColumn
        
        Private column数量 As DataColumn
        
        Private column单价 As DataColumn
        
        Private column总价 As DataColumn
        
        Private column收货单编号 As DataColumn
        
        Friend Sub New()
            MyBase.New("fk_cailiao_shouhuo_xiangdan")
            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 编号Column As DataColumn
            Get
                Return Me.column编号
            End Get
        End Property
        
        Friend ReadOnly Property 序号Column As DataColumn
            Get
                Return Me.column序号
            End Get
        End Property
        
        Friend ReadOnly Property 物料名称Column As DataColumn
            Get
                Return Me.column物料名称
            End Get
        End Property
        
        Friend ReadOnly Property 描述Column As DataColumn
            Get
                Return Me.column描述
            End Get
        End Property
        
        Friend ReadOnly Property 单位Column As DataColumn
            Get
                Return Me.column单位
            End Get
        End Property
        
        Friend ReadOnly Property 数量Column As DataColumn
            Get
                Return Me.column数量
            End Get
        End Property
        
        Friend ReadOnly Property 单价Column As DataColumn
            Get
                Return Me.column单价
            End Get
        End Property
        
        Friend ReadOnly Property 总价Column As DataColumn
            Get
                Return Me.column总价
            End Get
        End Property
        
        Friend ReadOnly Property 收货单编号Column As DataColumn
            Get
                Return Me.column收货单编号
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As fk_cailiao_shouhuo_xiangdanRow
            Get
                Return CType(Me.Rows(index),fk_cailiao_shouhuo_xiangdanRow)
            End Get
        End Property
        
        Public Event fk_cailiao_shouhuo_xiangdanRowChanged As fk_cailiao_shouhuo_xiangdanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_xiangdanRowChanging As fk_cailiao_shouhuo_xiangdanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_xiangdanRowDeleted As fk_cailiao_shouhuo_xiangdanRowChangeEventHandler
        
        Public Event fk_cailiao_shouhuo_xiangdanRowDeleting As fk_cailiao_shouhuo_xiangdanRowChangeEventHandler
        
        Public Overloads Sub Addfk_cailiao_shouhuo_xiangdanRow(ByVal row As fk_cailiao_shouhuo_xiangdanRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addfk_cailiao_shouhuo_xiangdanRow(ByVal 序号 As String, ByVal 物料名称 As String, ByVal 描述 As String, ByVal 单位 As String, ByVal 数量 As Double, ByVal 单价 As Double, ByVal 总价 As Double, ByVal parentfk_cailiao_shouhuo_zhudanRowByfk_cailiao_shouhuo_zhudanfk_cailiao_shouhuo_xiangdan1 As fk_cailiao_shouhuo_zhudanRow) As fk_cailiao_shouhuo_xiangdanRow
            Dim rowfk_cailiao_shouhuo_xiangdanRow As fk_cailiao_shouhuo_xiangdanRow = CType(Me.NewRow,fk_cailiao_shouhuo_xiangdanRow)
            rowfk_cailiao_shouhuo_xiangdanRow.ItemArray = New Object() {Nothing, 序号, 物料名称, 描述, 单位, 数量, 单价, 总价, parentfk_cailiao_shouhuo_zhudanRowByfk_cailiao_shouhuo_zhudanfk_cailiao_shouhuo_xiangdan1(0)}
            Me.Rows.Add(rowfk_cailiao_shouhuo_xiangdanRow)
            Return rowfk_cailiao_shouhuo_xiangdanRow
        End Function
        
        Public Function FindBy编号(ByVal 编号 As Long) As fk_cailiao_shouhuo_xiangdanRow
            Return CType(Me.Rows.Find(New Object() {编号}),fk_cailiao_shouhuo_xiangdanRow)
        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 fk_cailiao_shouhuo_xiangdanDataTable = CType(MyBase.Clone,fk_cailiao_shouhuo_xiangdanDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New fk_cailiao_shouhuo_xiangdanDataTable
        End Function