dataset1.vb

visual Basic 数据库开发实例导航

        
        Public Property 规格型号 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.规格型号Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.规格型号Column) = value
            End Set
        End Property
        
        Public Property 计划类别 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.计划类别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.计划类别Column) = value
            End Set
        End Property
        
        Public Property 状态类别 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.状态类别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.状态类别Column) = value
            End Set
        End Property
        
        Public Property 归属类别 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.归属类别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.归属类别Column) = value
            End Set
        End Property
        
        Public Property 价值类别 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.价值类别Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.价值类别Column) = value
            End Set
        End Property
        
        Public Property 物料特性a As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.物料特性aColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.物料特性aColumn) = value
            End Set
        End Property
        
        Public Property 物料特性b As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.物料特性bColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.物料特性bColumn) = value
            End Set
        End Property
        
        Public Property 物料特性c As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.物料特性cColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.物料特性cColumn) = value
            End Set
        End Property
        
        Public Property 物料特性d As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.物料特性dColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.物料特性dColumn) = value
            End Set
        End Property
        
        Public Property 长 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.长Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.长Column) = value
            End Set
        End Property
        
        Public Property 宽 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.宽Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.宽Column) = value
            End Set
        End Property
        
        Public Property 高 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.高Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.高Column) = value
            End Set
        End Property
        
        Public Property 净重 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.净重Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.净重Column) = value
            End Set
        End Property
        
        Public Property 品牌 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.品牌Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.品牌Column) = value
            End Set
        End Property
        
        Public Property 颜色 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.颜色Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.颜色Column) = value
            End Set
        End Property
        
        Public Property 等级 As String
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.等级Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.等级Column) = value
            End Set
        End Property
        
        Public Property 进货提前期 As Integer
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.进货提前期Column),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.进货提前期Column) = value
            End Set
        End Property
        
        Public Property 准备周期 As Integer
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.准备周期Column),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.准备周期Column) = value
            End Set
        End Property
        
        Public Property 生产周期 As Integer
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.生产周期Column),Integer)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.生产周期Column) = value
            End Set
        End Property
        
        Public Property 最小包装量 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.最小包装量Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.最小包装量Column) = value
            End Set
        End Property
        
        Public Property 最低销售量 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.最低销售量Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.最低销售量Column) = value
            End Set
        End Property
        
        Public Property 批量 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.批量Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.批量Column) = value
            End Set
        End Property
        
        Public Property 最高库存 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.最高库存Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.最高库存Column) = value
            End Set
        End Property
        
        Public Property 最低库存 As Decimal
            Get
                Try 
                    Return CType(Me(Me.table物料主文件.最低库存Column),Decimal)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.table物料主文件.最低库存Column) = value
            End Set