dataset1.vb

用.net写的,不知道怎么样,各位看看再说吧.

        
        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("入住价格")
            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("会员编号")
            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.DateTime), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column抵店时间)
            Me.column离店时间 = New DataColumn("离店时间", GetType(System.DateTime), 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.column客房编号 = New DataColumn("客房编号", GetType(System.String), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客房编号)
            Me.column客房价格 = New DataColumn("客房价格", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column客房价格)
            Me.column入住价格 = New DataColumn("入住价格", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column入住价格)
            Me.column折扣 = New DataColumn("折扣", GetType(System.Decimal), 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.Boolean), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column是否加床)
            Me.column加床价格 = New DataColumn("加床价格", GetType(System.Decimal), Nothing, System.Data.MappingType.Element)
            Me.Columns.Add(Me.column加床价格)
            Me.column预收款 = New DataColumn("预收款", GetType(System.Decimal), 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.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
            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 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 Date
            Get
                Return CType(Me(Me.table预定单.抵店时间Column),Date)
            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 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 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 Boolean
            Get
                Try 
                    Return CType(Me(Me.table预定单.是否加床Column),Boolean)
                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