reference.vb

Microsoft Mobile Development Handbook的代码,有C#,VB,C++的

                any2.MinOccurs = New Decimal(1)
                any2.ProcessContents = System.Xml.Schema.XmlSchemaContentProcessing.Lax
                sequence.Items.Add(any2)
                Dim attribute1 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
                attribute1.Name = "namespace"
                attribute1.FixedValue = ds.Namespace
                type.Attributes.Add(attribute1)
                Dim attribute2 As System.Xml.Schema.XmlSchemaAttribute = New System.Xml.Schema.XmlSchemaAttribute
                attribute2.Name = "tableTypeName"
                attribute2.FixedValue = "CustomersDataTable"
                type.Attributes.Add(attribute2)
                type.Particle = sequence
                Return type
            End Function
        End Class
        
        Partial Public Class CustomersRow
            Inherits System.Data.DataRow
            
            Private tableCustomers As CustomersDataTable
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Friend Sub New(ByVal rb As System.Data.DataRowBuilder)
                MyBase.New(rb)
                Me.tableCustomers = CType(Me.Table,CustomersDataTable)
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property CustomerID() As String
                Get
                    Return CType(Me(Me.tableCustomers.CustomerIDColumn),String)
                End Get
                Set
                    Me(Me.tableCustomers.CustomerIDColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property CompanyName() As String
                Get
                    Return CType(Me(Me.tableCustomers.CompanyNameColumn),String)
                End Get
                Set
                    Me(Me.tableCustomers.CompanyNameColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property ContactName() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.ContactNameColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'ContactName' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.ContactNameColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property ContactTitle() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.ContactTitleColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'ContactTitle' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.ContactTitleColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property Address() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.AddressColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'Address' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.AddressColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property City() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.CityColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'City' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.CityColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property _Region() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers._RegionColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'Region' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers._RegionColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property PostalCode() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.PostalCodeColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'PostalCode' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.PostalCodeColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property Country() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.CountryColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'Country' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.CountryColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property Phone() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.PhoneColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'Phone' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.PhoneColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Property Fax() As String
                Get
                    Try 
                        Return CType(Me(Me.tableCustomers.FaxColumn),String)
                    Catch e As System.InvalidCastException
                        Throw New System.Data.StrongTypingException("The value for column 'Fax' in table 'Customers' is DBNull.", e)
                    End Try
                End Get
                Set
                    Me(Me.tableCustomers.FaxColumn) = value
                End Set
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsContactNameNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.ContactNameColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetContactNameNull()
                Me(Me.tableCustomers.ContactNameColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsContactTitleNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.ContactTitleColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetContactTitleNull()
                Me(Me.tableCustomers.ContactTitleColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsAddressNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.AddressColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetAddressNull()
                Me(Me.tableCustomers.AddressColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsCityNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.CityColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetCityNull()
                Me(Me.tableCustomers.CityColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function Is_RegionNull() As Boolean
                Return Me.IsNull(Me.tableCustomers._RegionColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub Set_RegionNull()
                Me(Me.tableCustomers._RegionColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsPostalCodeNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.PostalCodeColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetPostalCodeNull()
                Me(Me.tableCustomers.PostalCodeColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsCountryNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.CountryColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetCountryNull()
                Me(Me.tableCustomers.CountryColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsPhoneNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.PhoneColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetPhoneNull()
                Me(Me.tableCustomers.PhoneColumn) = System.Convert.DBNull
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Function IsFaxNull() As Boolean
                Return Me.IsNull(Me.tableCustomers.FaxColumn)
            End Function
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub SetFaxNull()
                Me(Me.tableCustomers.FaxColumn) = System.Convert.DBNull
            End Sub
        End Class
        
        Public Class CustomersRowChangeEvent
            Inherits System.EventArgs
            
            Private eventRow As CustomersRow
            
            Private eventAction As System.Data.DataRowAction
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public Sub New(ByVal row As CustomersRow, ByVal action As System.Data.DataRowAction)
                MyBase.New
                Me.eventRow = row
                Me.eventAction = action
            End Sub
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property Row() As CustomersRow
                Get
                    Return Me.eventRow
                End Get
            End Property
            
            <System.Diagnostics.DebuggerNonUserCodeAttribute()>  _
            Public ReadOnly Property Action() As System.Data.DataRowAction
                Get
                    Return Me.eventAction
                End Get
            End Property
        End Class
    End Class
End Namespace