ds_qg_biaobao.vb

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

            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 _CD1_2编码Column As DataColumn
            Get
                Return Me.column_CD1_2编码
            End Get
        End Property
        
        Friend ReadOnly Property _CD3_4编码Column As DataColumn
            Get
                Return Me.column_CD3_4编码
            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
        
        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
        
        Friend ReadOnly Property 备注Column As DataColumn
            Get
                Return Me.column备注
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As qg_huowu_xiangxiqingkuangRow
            Get
                Return CType(Me.Rows(index),qg_huowu_xiangxiqingkuangRow)
            End Get
        End Property
        
        Public Event qg_huowu_xiangxiqingkuangRowChanged As qg_huowu_xiangxiqingkuangRowChangeEventHandler
        
        Public Event qg_huowu_xiangxiqingkuangRowChanging As qg_huowu_xiangxiqingkuangRowChangeEventHandler
        
        Public Event qg_huowu_xiangxiqingkuangRowDeleted As qg_huowu_xiangxiqingkuangRowChangeEventHandler
        
        Public Event qg_huowu_xiangxiqingkuangRowDeleting As qg_huowu_xiangxiqingkuangRowChangeEventHandler
        
        Public Overloads Sub Addqg_huowu_xiangxiqingkuangRow(ByVal row As qg_huowu_xiangxiqingkuangRow)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Addqg_huowu_xiangxiqingkuangRow( _
                    ByVal parentqinggou_zongbiaoRowByqinggou_zongbiaoqg_huowu_xiangxiqingkuang As qinggou_zongbiaoRow,  _
                    ByVal 费用编码 As String,  _
                    ByVal _CD1_2编码 As String,  _
                    ByVal _CD3_4编码 As String,  _
                    ByVal 物品名称 As String,  _
                    ByVal 参数 As String,  _
                    ByVal 单价 As Double,  _
                    ByVal 数量 As Double,  _
                    ByVal 金额 As Double,  _
                    ByVal _供应商_一_名称 As String,  _
                    ByVal _供应商_一_单价 As Double,  _
                    ByVal _供应商_一_金额 As Double,  _
                    ByVal _供应商_二_名称 As String,  _
                    ByVal _供应商_二_单价 As Double,  _
                    ByVal _供应商_二_金额 As Double,  _
                    ByVal _供应商_三_名称 As String,  _
                    ByVal _供应商_三_单价 As Double,  _
                    ByVal _供应商_三_金额 As Double,  _
                    ByVal _供应商_四_名称 As String,  _
                    ByVal _供应商_四_单价 As Double,  _
                    ByVal _供应商_四_金额 As Double,  _
                    ByVal 最后确定供应商 As String,  _
                    ByVal 备注 As String) As qg_huowu_xiangxiqingkuangRow
            Dim rowqg_huowu_xiangxiqingkuangRow As qg_huowu_xiangxiqingkuangRow = CType(Me.NewRow,qg_huowu_xiangxiqingkuangRow)
            rowqg_huowu_xiangxiqingkuangRow.ItemArray = New Object() {Nothing, parentqinggou_zongbiaoRowByqinggou_zongbiaoqg_huowu_xiangxiqingkuang(0), 费用编码, _CD1_2编码, _CD3_4编码, 物品名称, 参数, 单价, 数量, 金额, _供应商_一_名称, _供应商_一_单价, _供应商_一_金额, _供应商_二_名称, _供应商_二_单价, _供应商_二_金额, _供应商_三_名称, _供应商_三_单价, _供应商_三_金额, _供应商_四_名称, _供应商_四_单价, _供应商_四_金额, 最后确定供应商, 备注}
            Me.Rows.Add(rowqg_huowu_xiangxiqingkuangRow)
            Return rowqg_huowu_xiangxiqingkuangRow
        End Function
        
        Public Function FindBy编号(ByVal 编号 As Long) As qg_huowu_xiangxiqingkuangRow
            Return CType(Me.Rows.Find(New Object() {编号}),qg_huowu_xiangxiqingkuangRow)
        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 qg_huowu_xiangxiqingkuangDataTable = CType(MyBase.Clone,qg_huowu_xiangxiqingkuangDataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New qg_huowu_xiangxiqingkuangDataTable
        End Function
        
        Friend Sub InitVars()
            Me.column编号 = Me.Columns("编号")
            Me.column请购单编号 = Me.Columns("请购单编号")
            Me.column费用编码 = Me.Columns("费用编码")
            Me.column_CD1_2编码 = Me.Columns("CD1+2编码")
            Me.column_CD3_4编码 = Me.Columns("CD3+4编码")
            Me.column物品名称 = Me.Columns("物品名称")
            Me.column参数 = Me.Columns("参数")
            Me.column单价 = Me.Columns("单价")
            Me.column数量 = Me.Columns("数量")
            Me.column金额 = Me.Columns("金额")
            Me.column_供应商_一_名称 = Me.Columns("供应商（一）名称")
            Me.column_供应商_一_单价 = Me.Columns("供应商（一）单价")
            Me.column_供应商_一_金额 = Me.Columns("供应商（一）金额")
            Me.column_供应商_二_名称 = Me.Columns("供应商（二）名称")
            Me.column_供应商_二_单价 = Me.Columns("供应商（二）单价")
            Me.column_供应商_二_金额 = Me.Columns("供应商（二）金额")
            Me.column_供应商_三_名称 = Me.Columns("供应商（三）名称")
            Me.column_供应商_三_单价 = Me.Columns("供应商（三）单价")
            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.Int64), 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_CD1_2编码 = New DataColumn("CD1+2编码", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_CD1_2编码)
            Me.column_CD3_4编码 = New DataColumn("CD3+4编码", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_CD3_4编码)
            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.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column单价)
            Me.column数量 = New DataColumn("数量", GetType(System.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column数量)
            Me.column金额 = New DataColumn("金额", GetType(System.Double), 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.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_供应商_一_单价)
            Me.column_供应商_一_金额 = New DataColumn("供应商（一）金额", GetType(System.Double), 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.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_供应商_二_单价)
            Me.column_供应商_二_金额 = New DataColumn("供应商（二）金额", GetType(System.Double), 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.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_供应商_三_单价)
            Me.column_供应商_三_金额 = New DataColumn("供应商（三）金额", GetType(System.Double), 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.Double), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column_供应商_四_单价)
            Me.column_供应商_四_金额 = New DataColumn("供应商（四）金额", GetType(System.Double), 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("ds_qg_biaobaoKey2", New DataColumn() {Me.column编号}, true))
            Me.column编号.AutoIncrement = true
            Me.column编号.AllowDBNull = false
            Me.column编号.ReadOnly = true
            Me.column编号.Unique = true
        End Sub
        
        Public Function Newqg_huowu_xiangxiqingkuangRow() As qg_huowu_xiangxiqingkuangRow
            Return CType(Me.NewRow,qg