ds_qg_biaobao.vb

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

        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.tableqinggou_zongbiao = CType(Me.Table,qinggou_zongbiaoDataTable)
        End Sub
        
        Public Property 请购单编号 As String
            Get
                Return CType(Me(Me.tableqinggou_zongbiao.请购单编号Column),String)
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.请购单编号Column) = value
            End Set
        End Property
        
        Public Property 工程编号 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.工程编号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.工程编号Column) = value
            End Set
        End Property
        
        Public Property 工程名称 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.工程名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.工程名称Column) = value
            End Set
        End Property
        
        Public Property 订购日期 As Date
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.订购日期Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.订购日期Column) = value
            End Set
        End Property
        
        Public Property 送货地点 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.送货地点Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.送货地点Column) = value
            End Set
        End Property
        
        Public Property 付款期限 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.付款期限Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.付款期限Column) = value
            End Set
        End Property
        
        Public Property 其它事项 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.其它事项Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.其它事项Column) = value
            End Set
        End Property
        
        Public Property 请购人 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.请购人Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.请购人Column) = value
            End Set
        End Property
        
        Public Property 请购人提交时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.请购人提交时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.请购人提交时间Column) = value
            End Set
        End Property
        
        Public Property 项目经理 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.项目经理Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.项目经理Column) = value
            End Set
        End Property
        
        Public Property 项目经理审批意见 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.项目经理审批意见Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.项目经理审批意见Column) = value
            End Set
        End Property
        
        Public Property 项目经理审批结果 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.项目经理审批结果Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.项目经理审批结果Column) = value
            End Set
        End Property
        
        Public Property 项目经理审批时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.项目经理审批时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.项目经理审批时间Column) = value
            End Set
        End Property
        
        Public Property 分公司经理 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.分公司经理Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.分公司经理Column) = value
            End Set
        End Property
        
        Public Property 分公司经理审批意见 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.分公司经理审批意见Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.分公司经理审批意见Column) = value
            End Set
        End Property
        
        Public Property 分公司经理审批结果 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.分公司经理审批结果Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.分公司经理审批结果Column) = value
            End Set
        End Property
        
        Public Property 分公司经理审批时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.分公司经理审批时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.分公司经理审批时间Column) = value
            End Set
        End Property
        
        Public Property 流程 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.流程Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.流程Column) = value
            End Set
        End Property
        
        Public Property 选择的供应商名称 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.选择的供应商名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.选择的供应商名称Column) = value
            End Set
        End Property
        
        Public Property 是否为退回 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.是否为退回Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.是否为退回Column) = value
            End Set
        End Property
        
        Public Property 是否分离 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.是否分离Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.是否分离Column) = value
            End Set
        End Property
        
        Public Property 是否变更 As String
            Get
                Try 
                    Return CType(Me(Me.tableqinggou_zongbiao.是否变更Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableqinggou_zongbiao.是否变更Column) = value
            End Set
        End Property