merestonedataset.vb

界桩信息管理系统代码,VB写的。。。。。。。

                Me(Me.tableMereStone.jzzfww_cfwj1Column) = value
            End Set
        End Property
        
        Public Property jzzwww_mc1 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzwww_mc1Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzwww_mc1Column) = value
            End Set
        End Property
        
        Public Property jzzfww_jl2 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_jl2Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_jl2Column) = value
            End Set
        End Property
        
        Public Property jzzfww_cfwj2 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_cfwj2Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_cfwj2Column) = value
            End Set
        End Property
        
        Public Property jzzwww_mc2 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzwww_mc2Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzwww_mc2Column) = value
            End Set
        End Property
        
        Public Property jzzfww_jl3 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_jl3Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_jl3Column) = value
            End Set
        End Property
        
        Public Property jzzfww_cfwj3 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzfww_cfwj3Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzfww_cfwj3Column) = value
            End Set
        End Property
        
        Public Property jzzwww_mc3 As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.jzzwww_mc3Column),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.jzzwww_mc3Column) = value
            End Set
        End Property
        
        Public Property sm As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.smColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.smColumn) = value
            End Set
        End Property
        
        Public Property qt As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.qtColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.qtColumn) = value
            End Set
        End Property
        
        Public Property bz As String
            Get
                Try 
                    Return CType(Me(Me.tableMereStone.bzColumn),String)
                Catch e As InvalidCastException
                    Throw New StrongTypingException("无法获取值，因为它是 DBNull。", e)
                End Try
            End Get
            Set
                Me(Me.tableMereStone.bzColumn) = value
            End Set
        End Property
        
        Public Function IsjzmcNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzmcColumn)
        End Function
        
        Public Sub SetjzmcNull()
            Me(Me.tableMereStone.jzmcColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsjzbhNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzbhColumn)
        End Function
        
        Public Sub SetjzbhNull()
            Me(Me.tableMereStone.jzbhColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IslxNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.lxColumn)
        End Function
        
        Public Sub SetlxNull()
            Me(Me.tableMereStone.lxColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsczNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.czColumn)
        End Function
        
        Public Sub SetczNull()
            Me(Me.tableMereStone.czColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsbwNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.bwColumn)
        End Function
        
        Public Sub SetbwNull()
            Me(Me.tableMereStone.bwColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsdjNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.djColumn)
        End Function
        
        Public Sub SetdjNull()
            Me(Me.tableMereStone.djColumn) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_jl1Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_jl1Column)
        End Function
        
        Public Sub Setjzzfww_jl1Null()
            Me(Me.tableMereStone.jzzfww_jl1Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_cfwj1Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_cfwj1Column)
        End Function
        
        Public Sub Setjzzfww_cfwj1Null()
            Me(Me.tableMereStone.jzzfww_cfwj1Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzwww_mc1Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzwww_mc1Column)
        End Function
        
        Public Sub Setjzzwww_mc1Null()
            Me(Me.tableMereStone.jzzwww_mc1Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_jl2Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_jl2Column)
        End Function
        
        Public Sub Setjzzfww_jl2Null()
            Me(Me.tableMereStone.jzzfww_jl2Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_cfwj2Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_cfwj2Column)
        End Function
        
        Public Sub Setjzzfww_cfwj2Null()
            Me(Me.tableMereStone.jzzfww_cfwj2Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzwww_mc2Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzwww_mc2Column)
        End Function
        
        Public Sub Setjzzwww_mc2Null()
            Me(Me.tableMereStone.jzzwww_mc2Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_jl3Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_jl3Column)
        End Function
        
        Public Sub Setjzzfww_jl3Null()
            Me(Me.tableMereStone.jzzfww_jl3Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzfww_cfwj3Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzfww_cfwj3Column)
        End Function
        
        Public Sub Setjzzfww_cfwj3Null()
            Me(Me.tableMereStone.jzzfww_cfwj3Column) = System.Convert.DBNull
        End Sub
        
        Public Function Isjzzwww_mc3Null() As Boolean
            Return Me.IsNull(Me.tableMereStone.jzzwww_mc3Column)
        End Function
        
        Public Sub Setjzzwww_mc3Null()
            Me(Me.tableMereStone.jzzwww_mc3Column) = System.Convert.DBNull
        End Sub
        
        Public Function IssmNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.smColumn)
        End Function
        
        Public Sub SetsmNull()
            Me(Me.tableMereStone.smColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsqtNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.qtColumn)
        End Function
        
        Public Sub SetqtNull()
            Me(Me.tableMereStone.qtColumn) = System.Convert.DBNull
        End Sub
        
        Public Function IsbzNull() As Boolean
            Return Me.IsNull(Me.tableMereStone.bzColumn)
        End Function
        
        Public Sub SetbzNull()
            Me(Me.tableMereStone.bzColumn) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class MereStoneRowChangeEvent
        Inherits EventArgs
        
        Private eventRow As MereStoneRow
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As MereStoneRow, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As MereStoneRow
            Get
                Return Me.eventRow
            End Get
        End Property
        
        Public ReadOnly Property Action As DataRowAction
            Get
                Return Me.eventAction
            End Get
        End Property
    End Class
End Class