Me.DisplayExpression = table.DisplayExpression
        End Sub
        
        <System.ComponentModel.Browsable(false)>  _
        Public ReadOnly Property Count As Integer
            Get
                Return Me.Rows.Count
            End Get
        End Property
        
        Friend ReadOnly Property 課程編號Column As DataColumn
            Get
                Return Me.column課程編號
            End Get
        End Property
        
        Friend ReadOnly Property 課程名稱Column As DataColumn
            Get
                Return Me.column課程名稱
            End Get
        End Property
        
        Friend ReadOnly Property 課程簡稱Column As DataColumn
            Get
                Return Me.column課程簡稱
            End Get
        End Property
        
        Friend ReadOnly Property 拼音碼Column As DataColumn
            Get
                Return Me.column拼音碼
            End Get
        End Property
        
        Friend ReadOnly Property 本學期課程Column As DataColumn
            Get
                Return Me.column本學期課程
            End Get
        End Property
        
        Friend ReadOnly Property 教師Column As DataColumn
            Get
                Return Me.column教師
            End Get
        End Property
        
        Friend ReadOnly Property 開課系別Column As DataColumn
            Get
                Return Me.column開課系別
            End Get
        End Property
        
        Friend ReadOnly Property 學分Column As DataColumn
            Get
                Return Me.column學分
            End Get
        End Property
        
        Public Default ReadOnly Property Item(ByVal index As Integer) As 課程信息Row
            Get
                Return CType(Me.Rows(index),課程信息Row)
            End Get
        End Property
        
        Public Event 課程信息RowChanged As 課程信息RowChangeEventHandler
        
        Public Event 課程信息RowChanging As 課程信息RowChangeEventHandler
        
        Public Event 課程信息RowDeleted As 課程信息RowChangeEventHandler
        
        Public Event 課程信息RowDeleting As 課程信息RowChangeEventHandler
        
        Public Overloads Sub Add課程信息Row(ByVal row As 課程信息Row)
            Me.Rows.Add(row)
        End Sub
        
        Public Overloads Function Add課程信息Row(ByVal 課程編號 As Integer, ByVal 課程名稱 As String, ByVal 課程簡稱 As String, ByVal 拼音碼 As String, ByVal 本學期課程 As String, ByVal 教師 As String, ByVal 開課系別 As String, ByVal 學分 As Integer) As 課程信息Row
            Dim row課程信息Row As 課程信息Row = CType(Me.NewRow,課程信息Row)
            row課程信息Row.ItemArray = New Object() {課程編號, 課程名稱, 課程簡稱, 拼音碼, 本學期課程, 教師, 開課系別, 學分}
            Me.Rows.Add(row課程信息Row)
            Return row課程信息Row
        End Function
        
        Public Function FindBy課程編號(ByVal 課程編號 As Integer) 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("教師")
            Me.column開課系別 = Me.Columns("開課系別")
            Me.column學分 = Me.Columns("學分")
        End Sub
        
        Private Sub InitClass()
            Me.column課程編號 = New DataColumn("課程編號", GetType(System.Int32), 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.column開課系別 = New DataColumn("開課系別", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column開課系別)
            Me.column學分 = New DataColumn("學分", GetType(System.Int32), 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
            Me.column課程名稱.AllowDBNull = false
            Me.column課程簡稱.AllowDBNull = false
            Me.column本學期課程.AllowDBNull = false
        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 Integer
            Get
                Return CType(Me(Me.table課程信息.課程編號Column),Integer)
            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
                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
                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 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 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