dataset2.vb

应急系统(Emergency System, ES)主要是针对自然灾害,安全事故

                    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 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 Date
            Get
                Try 
                    Return CType(Me(Me.table突发事件信息表.申报时间Column),Date)
                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 Date
            Get
                Try 
                    Return CType(Me(Me.table突发事件信息表.修改时间Column),Date)
                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 Function Is突发事件名称Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.突发事件名称Column)
        End Function
        
        Public Sub Set突发事件名称Null()
            Me(Me.table突发事件信息表.突发事件名称Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is类别Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.类别Column)
        End Function
        
        Public Sub Set类别Null()
            Me(Me.table突发事件信息表.类别Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is发生地点Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.发生地点Column)
        End Function
        
        Public Sub Set发生地点Null()
            Me(Me.table突发事件信息表.发生地点Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is发生时间Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.发生时间Column)
        End Function
        
        Public Sub Set发生时间Null()
            Me(Me.table突发事件信息表.发生时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is持续时间Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.持续时间Column)
        End Function
        
        Public Sub Set持续时间Null()
            Me(Me.table突发事件信息表.持续时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is受伤人数Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.受伤人数Column)
        End Function
        
        Public Sub Set受伤人数Null()
            Me(Me.table突发事件信息表.受伤人数Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is死亡人数Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.死亡人数Column)
        End Function
        
        Public Sub Set死亡人数Null()
            Me(Me.table突发事件信息表.死亡人数Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is财产损失Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.财产损失Column)
        End Function
        
        Public Sub Set财产损失Null()
            Me(Me.table突发事件信息表.财产损失Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is申报时间Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.申报时间Column)
        End Function
        
        Public Sub Set申报时间Null()
            Me(Me.table突发事件信息表.申报时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is申报单位Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.申报单位Column)
        End Function
        
        Public Sub Set申报单位Null()
            Me(Me.table突发事件信息表.申报单位Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is申报单位电话Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.申报单位电话Column)
        End Function
        
        Public Sub Set申报单位电话Null()
            Me(Me.table突发事件信息表.申报单位电话Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is修改时间Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.修改时间Column)
        End Function
        
        Public Sub Set修改时间Null()
            Me(Me.table突发事件信息表.修改时间Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is修改单位Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.修改单位Column)
        End Function
        
        Public Sub Set修改单位Null()
            Me(Me.table突发事件信息表.修改单位Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is修改单位电话Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.修改单位电话Column)
        End Function
        
        Public Sub Set修改单位电话Null()
            Me(Me.table突发事件信息表.修改单位电话Column) = System.Convert.DBNull
        End Sub
        
        Public Function Is备注Null() As Boolean
            Return Me.IsNull(Me.table突发事件信息表.备注Column)
        End Function
        
        Public Sub Set备注Null()
            Me(Me.table突发事件信息表.备注Column) = System.Convert.DBNull
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 突发事件信息表RowChangeEvent
        Inherits EventArgs
        
        Private eventRow As 突发事件信息表Row
        
        Private eventAction As DataRowAction
        
        Public Sub New(ByVal row As 突发事件信息表Row, ByVal action As DataRowAction)
            MyBase.New
            Me.eventRow = row
            Me.eventAction = action
        End Sub
        
        Public ReadOnly Property Row As 突发事件信息表Row
            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