Public Function FindBy學號(ByVal 學號 As String) As 住宿登記Row
            Return CType(Me.Rows.Find(New Object() {學號}),住宿登記Row)
        End Function
        
        Public Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
            Return Me.Rows.GetEnumerator
        End Function
        
        Public Overrides Function Clone() As DataTable
            Dim cln As 住宿登記DataTable = CType(MyBase.Clone,住宿登記DataTable)
            cln.InitVars
            Return cln
        End Function
        
        Protected Overrides Function CreateInstance() As DataTable
            Return New 住宿登記DataTable
        End Function
        
        Friend Sub InitVars()
            Me.column棟號 = Me.Columns("棟號")
            Me.column房號 = Me.Columns("房號")
            Me.column床號 = Me.Columns("床號")
            Me.column學號 = Me.Columns("學號")
            Me.column姓名 = Me.Columns("姓名")
            Me.column性別 = Me.Columns("性別")
        End Sub
        
        Private Sub InitClass()
            Me.column棟號 = New DataColumn("棟號", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column棟號)
            Me.column房號 = New DataColumn("房號", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column房號)
            Me.column床號 = New DataColumn("床號", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column床號)
            Me.column學號 = New DataColumn("學號", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column學號)
            Me.column姓名 = New DataColumn("姓名", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column姓名)
            Me.column性別 = New DataColumn("性別", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column性別)
            Me.Constraints.Add(New UniqueConstraint("Constraint1", New DataColumn() {Me.column學號}, true))
            Me.column學號.AllowDBNull = false
            Me.column學號.Unique = true
        End Sub
        
        Public Function New住宿登記Row() As 住宿登記Row
            Return CType(Me.NewRow,住宿登記Row)
        End Function
        
        Protected Overrides Function NewRowFromBuilder(ByVal builder As DataRowBuilder) As DataRow
            Return New 住宿登記Row(builder)
        End Function
        
        Protected Overrides Function GetRowType() As System.Type
            Return GetType(住宿登記Row)
        End Function
        
        Protected Overrides Sub OnRowChanged(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanged(e)
            If (Not (Me.住宿登記RowChangedEvent) Is Nothing) Then
                RaiseEvent 住宿登記RowChanged(Me, New 住宿登記RowChangeEvent(CType(e.Row,住宿登記Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowChanging(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowChanging(e)
            If (Not (Me.住宿登記RowChangingEvent) Is Nothing) Then
                RaiseEvent 住宿登記RowChanging(Me, New 住宿登記RowChangeEvent(CType(e.Row,住宿登記Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleted(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleted(e)
            If (Not (Me.住宿登記RowDeletedEvent) Is Nothing) Then
                RaiseEvent 住宿登記RowDeleted(Me, New 住宿登記RowChangeEvent(CType(e.Row,住宿登記Row), e.Action))
            End If
        End Sub
        
        Protected Overrides Sub OnRowDeleting(ByVal e As DataRowChangeEventArgs)
            MyBase.OnRowDeleting(e)
            If (Not (Me.住宿登記RowDeletingEvent) Is Nothing) Then
                RaiseEvent 住宿登記RowDeleting(Me, New 住宿登記RowChangeEvent(CType(e.Row,住宿登記Row), e.Action))
            End If
        End Sub
        
        Public Sub Remove住宿登記Row(ByVal row As 住宿登記Row)
            Me.Rows.Remove(row)
        End Sub
    End Class
    
    <System.Diagnostics.DebuggerStepThrough()>  _
    Public Class 住宿登記Row
        Inherits DataRow
        
        Private table住宿登記 As 住宿登記DataTable
        
        Friend Sub New(ByVal rb As DataRowBuilder)
            MyBase.New(rb)
            Me.table住宿登記 = CType(Me.Table,住宿登記DataTable)
        End Sub
        
        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
                Return CType(Me(Me.table住宿登記.學號Column),String)
            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
    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