📄 mysaledataset1.designer.vb
字号:
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Shared Function GetTypedDataSetSchema(ByVal xs As System.Xml.Schema.XmlSchemaSet) As System.Xml.Schema.XmlSchemaComplexType
Dim ds As MySaleDataSet1 = New MySaleDataSet1
Dim type As System.Xml.Schema.XmlSchemaComplexType = New System.Xml.Schema.XmlSchemaComplexType
Dim sequence As System.Xml.Schema.XmlSchemaSequence = New System.Xml.Schema.XmlSchemaSequence
xs.Add(ds.GetSchemaSerializable)
Dim any As System.Xml.Schema.XmlSchemaAny = New System.Xml.Schema.XmlSchemaAny
any.Namespace = ds.Namespace
sequence.Items.Add(any)
type.Particle = sequence
Return type
End Function
Public Delegate Sub 公司信息RowChangeEventHandler(ByVal sender As Object, ByVal e As 公司信息RowChangeEvent)
<System.CodeDom.Compiler.GeneratedCodeAttribute("System.Data.Design.TypedDataSetGenerator", "2.0.0.0"), _
System.Serializable(), _
System.Xml.Serialization.XmlSchemaProviderAttribute("GetTypedTableSchema")> _
Partial Public Class 公司信息DataTable
Inherits System.Data.DataTable
Implements System.Collections.IEnumerable
Private column公司名称 As System.Data.DataColumn
Private column法人代表 As System.Data.DataColumn
Private column公司地址 As System.Data.DataColumn
Private column服务电话 As System.Data.DataColumn
Private column邮政编码 As System.Data.DataColumn
Private column电子邮件 As System.Data.DataColumn
Private column公司网站 As System.Data.DataColumn
Private column管理系统背景照片 As System.Data.DataColumn
Private column管理系统显示名称 As System.Data.DataColumn
Private column显示优先级 As System.Data.DataColumn
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Sub New()
MyBase.New
Me.TableName = "公司信息"
Me.BeginInit
Me.InitClass
Me.EndInit
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub New(ByVal table As System.Data.DataTable)
MyBase.New
Me.TableName = table.TableName
If (table.CaseSensitive <> table.DataSet.CaseSensitive) Then
Me.CaseSensitive = table.CaseSensitive
End If
If (table.Locale.ToString <> table.DataSet.Locale.ToString) Then
Me.Locale = table.Locale
End If
If (table.Namespace <> table.DataSet.Namespace) Then
Me.Namespace = table.Namespace
End If
Me.Prefix = table.Prefix
Me.MinimumCapacity = table.MinimumCapacity
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Sub New(ByVal info As System.Runtime.Serialization.SerializationInfo, ByVal context As System.Runtime.Serialization.StreamingContext)
MyBase.New(info, context)
Me.InitVars
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 公司名称Column() As System.Data.DataColumn
Get
Return Me.column公司名称
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 法人代表Column() As System.Data.DataColumn
Get
Return Me.column法人代表
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 公司地址Column() As System.Data.DataColumn
Get
Return Me.column公司地址
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 服务电话Column() As System.Data.DataColumn
Get
Return Me.column服务电话
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 邮政编码Column() As System.Data.DataColumn
Get
Return Me.column邮政编码
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 电子邮件Column() As System.Data.DataColumn
Get
Return Me.column电子邮件
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 公司网站Column() As System.Data.DataColumn
Get
Return Me.column公司网站
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 管理系统背景照片Column() As System.Data.DataColumn
Get
Return Me.column管理系统背景照片
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 管理系统显示名称Column() As System.Data.DataColumn
Get
Return Me.column管理系统显示名称
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public ReadOnly Property 显示优先级Column() As System.Data.DataColumn
Get
Return Me.column显示优先级
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute(), _
System.ComponentModel.Browsable(false)> _
Public ReadOnly Property Count() As Integer
Get
Return Me.Rows.Count
End Get
End Property
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Default ReadOnly Property Item(ByVal index As Integer) As 公司信息Row
Get
Return CType(Me.Rows(index),公司信息Row)
End Get
End Property
Public Event 公司信息RowChanging As 公司信息RowChangeEventHandler
Public Event 公司信息RowChanged As 公司信息RowChangeEventHandler
Public Event 公司信息RowDeleting As 公司信息RowChangeEventHandler
Public Event 公司信息RowDeleted As 公司信息RowChangeEventHandler
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Sub Add公司信息Row(ByVal row As 公司信息Row)
Me.Rows.Add(row)
End Sub
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overloads Function Add公司信息Row(ByVal 公司名称 As String, ByVal 法人代表 As String, ByVal 公司地址 As String, 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
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Function FindBy公司名称(ByVal 公司名称 As String) As 公司信息Row
Return CType(Me.Rows.Find(New Object() {公司名称}),公司信息Row)
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overridable Function GetEnumerator() As System.Collections.IEnumerator Implements System.Collections.IEnumerable.GetEnumerator
Return Me.Rows.GetEnumerator
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Public Overrides Function Clone() As System.Data.DataTable
Dim cln As 公司信息DataTable = CType(MyBase.Clone,公司信息DataTable)
cln.InitVars
Return cln
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Protected Overrides Function CreateInstance() As System.Data.DataTable
Return New 公司信息DataTable
End Function
<System.Diagnostics.DebuggerNonUserCodeAttribute()> _
Friend Sub InitVars()
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -