ds_dinggou_baobiao.vb

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

            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.付款期限Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.付款期限Column) = value
            End Set
        End Property
        
        Public Property 采购文员 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购文员Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购文员Column) = value
            End Set
        End Property
        
        Public Property 采购文员录入价格时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购文员录入价格时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购文员录入价格时间Column) = value
            End Set
        End Property
        
        Public Property 采购经理 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购经理Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购经理Column) = value
            End Set
        End Property
        
        Public Property 采购经理审批意见 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购经理审批意见Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购经理审批意见Column) = value
            End Set
        End Property
        
        Public Property 采购经理审批结果 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购经理审批结果Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购经理审批结果Column) = value
            End Set
        End Property
        
        Public Property 采购经理审批时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.采购经理审批时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.采购经理审批时间Column) = value
            End Set
        End Property
        
        Public Property 总经理 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.总经理Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.总经理Column) = value
            End Set
        End Property
        
        Public Property 总经理审批意见 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.总经理审批意见Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.总经理审批意见Column) = value
            End Set
        End Property
        
        Public Property 总经理审批结果 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.总经理审批结果Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.总经理审批结果Column) = value
            End Set
        End Property
        
        Public Property 总经理审批时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.总经理审批时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.总经理审批时间Column) = value
            End Set
        End Property
        
        Public Property 回传确认时间 As Date
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.回传确认时间Column),Date)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.回传确认时间Column) = value
            End Set
        End Property
        
        Public Property 流程 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.流程Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.流程Column) = value
            End Set
        End Property
        
        Public Property 选择的供应商名称 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.选择的供应商名称Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.选择的供应商名称Column) = value
            End Set
        End Property
        
        Public Property 是否为退回 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.是否为退回Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.是否为退回Column) = value
            End Set
        End Property
        
        Public Property 是否为变更 As String
            Get
                Try 
                    Return CType(Me(Me.tabledinggou_zongbiao.是否为变更Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tabledinggou_zongbiao.是否为变更Column) = value
            End Set
        End Property
        
        Public Function Is采购单编号Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.采购单编号Column)
        End Function
        
        Public Sub Set采购单编号Null()
            Me(Me.tabledinggou_zongbiao.采购单编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工程编号Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.工程编号Column)
        End Function
        
        Public Sub Set工程编号Null()
            Me(Me.tabledinggou_zongbiao.工程编号Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工程名称Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.工程名称Column)
        End Function
        
        Public Sub Set工程名称Null()
            Me(Me.tabledinggou_zongbiao.工程名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is订购日期Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.订购日期Column)
        End Function
        
        Public Sub Set订购日期Null()
            Me(Me.tabledinggou_zongbiao.订购日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is是否含运费Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.是否含运费Column)
        End Function
        
        Public Sub Set是否含运费Null()
            Me(Me.tabledinggou_zongbiao.是否含运费Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is发票方式Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.发票方式Column)
        End Function
        
        Public Sub Set发票方式Null()
            Me(Me.tabledinggou_zongbiao.发票方式Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is需货日期Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.需货日期Column)
        End Function
        
        Public Sub Set需货日期Null()
            Me(Me.tabledinggou_zongbiao.需货日期Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is付款方式Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.付款方式Column)
        End Function
        
        Public Sub Set付款方式Null()
            Me(Me.tabledinggou_zongbiao.付款方式Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is送货地点Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.送货地点Column)
        End Function
        
        Public Sub Set送货地点Null()
            Me(Me.tabledinggou_zongbiao.送货地点Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is工地收货人Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.工地收货人Column)
        End Function
        
        Public Sub Set工地收货人Null()
            Me(Me.tabledinggou_zongbiao.工地收货人Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is收货人联系方式Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.收货人联系方式Column)
        End Function
        
        Public Sub Set收货人联系方式Null()
            Me(Me.tabledinggou_zongbiao.收货人联系方式Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.tabledinggou_zongbiao.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.tabledinggou_zongbiao.备注Column) = System.Convert.DBNull
        End Sub