在内存中建表在DagaGrid中显示
在内存中建表在DagaGrid中显示 Public Class Form1
Inherits System.Windows.Forms.Form
'[定义数据集]
'Dim dsCtf As DataSet
Dim dsCtf As New DataSet('dsCtf')
Dim tabShowDataGrid As New DataTable('showDataGrid') '用于显示datagrid的内存表
Private TablesAlreadyAdded As Boolean '是否加入了表头
#Region ' Windows 窗体设计器生成的代码 '
Public Sub New()
MyBase.New()
'该调用是 Windows 窗体设计器所必需的。
InitializeComponent()
'在 InitializeComponent() 调用之后添加任何初始化
End Sub
'窗体重写 dispose 以清理组件列表。
Protected Overloads Overrides Sub Dispose(ByVal disposing As Boolean)
If disposing Then
If Not (components Is Nothing) Then
components.Dispose()
End If
End If
MyBase.Dispose(disposing)
End Sub
'Windows 窗体设计器所必需的
Private components As System.ComponentModel.IContainer
'注意: 以下过程是 Windows 窗体设计器所必需的
'可以使用 Windows 窗体设计器修改此过程。
'不要使用代码编辑器修改它。
Friend WithEvents DataGrid1 As System.Windows.Forms.DataGrid
Friend WithEvents btnCreateTable As System.Windows.Forms.Button
Friend WithEvents btnshowTable As System.Windows.Forms.Button
<System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
Me.DataGrid1 = New System.Windows.Forms.DataGrid
Me.btnCreateTable = New System.Windows.Forms.Button
Me.btnshowTable = New System.Windows.Forms.Button
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'DataGrid1
'
Me.DataGrid1.DataMember = ''
Me.DataGrid1.HeaderForeColor = System.Drawing.SystemColors.ControlText
Me.DataGrid1.Location = New System.Drawing.Point(8, 16)
Me.DataGrid1.Name = 'DataGrid1'
Me.DataGrid1.Size = New System.Drawing.Size(448, 136)
Me.DataGrid1.TabIndex = 0
'
'btnCreateTable
'
Me.btnCreateTable.Location = New System.Drawing.Point(176, 168)
Me.btnCreateTable.Name = 'btnCreateTable'
Me.btnCreateTable.Size = New System.Drawing.Size(112, 32)
Me.btnCreateTable.TabIndex = 1
Me.btnCreateTable.Text = '建立内存表'
'
'btnshowTable
'
Me.btnshowTable.Location = New System.Drawing.Point(176, 232)
Me.btnshowTable.Name = 'btnshowTable'
Me.btnshowTable.Size = New System.Drawing.Size(112, 32)
Me.btnshowTable.TabIndex = 2
Me.btnshowTable.Text = '显示内存表'
'
'Form1
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(464, 285)
Me.Controls.Add(Me.btnshowTable)
Me.Controls.Add(Me.btnCreateTable)
Me.Controls.Add(Me.DataGrid1)
Me.Name = 'Form1'
Me.Text = 'Form1'
CType(Me.DataGrid1, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub btnCreateTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCreateTable.Click
'建表
createTab()
'填充数据
addInfo()
'提示,此提示应该由建表与填充数据执行成功后才能显示，本例中没有
MessageBox.Show('建立内存表成功，请点击显示进行查看')
End Sub
'[建立内存表]用于显示datagrid内容的表结构
Private Sub createTab()
If dsCtf.Tables.Contains('showDataGrid') = False Then
dsCtf.Tables.Add(tabShowDataGrid)
End If
'在内存表showDataGrid中建立５个列
Dim cCountID As New DataColumn('cCountID') 'add the countyID
Dim cCountName As New DataColumn('cCountName') 'add the countyName
Dim iLastStartNO As New DataColumn('iLastStartNo') 'add the lastNo
Dim iEndNo As New DataColumn('iEndNo') 'add the lastEndNo
Dim iNowNo As New DataColumn('iNowNo') 'add the inowno
'把这些列加入到表中
If tabShowDataGrid.Columns.Contains('cCountID') = False Then
tabShowDataGrid.Columns.Add(cCountID)
End If
If tabShowDataGrid.Columns.Contains('cCountName') = False Then
tabShowDataGrid.Columns.Add(cCountName)
End If
If tabShowDataGrid.Columns.Contains('iLastStartNO') = False Then
tabShowDataGrid.Columns.Add(iLastStartNO)
End If
If tabShowDataGrid.Columns.Contains('iEndNo') = False Then
tabShowDataGrid.Columns.Add(iEndNo)
End If
If tabShowDataGrid.Columns.Contains('iNowNo') = False Then
tabShowDataGrid.Columns.Add(iNowNo)
End If
End Sub
'给内存表加入数据库，并在datagrid中显示
Private Sub addInfo()
'清空表中的数据
tabShowDataGrid.Clear()
Dim RowData As Data.DataRow
Dim iRow As Int16 '行数
'加入数据
For iRow = 0 To 3
RowData = tabShowDataGrid.NewRow
RowData('cCountID') = iRow
RowData('cCountName') = CStr(iRow) & ' ' & 'cCountName'
RowData('iLastStartNO') = iRow
RowData('iEndNo') = iRow + 1
RowData('iNowNo') = iRow + 2
tabShowDataGrid.Rows.Add(RowData)
Next
'加入表头
If TablesAlreadyAdded = True Then Exit Sub
AddCustomDataTableStyle()
End Sub
' 加入表头，加入datagrid显示内容的表头
Private Sub AddCustomDataTableStyle()
'可以通过 DataGridTableStyle 控制每个 DataTable 的网格的外观。
'若要指定在显示来自特定 DataTable 的数据时所使用的 DataGridTableStyle，
'请将 MappingName 设置为某 DataTable 的 TableName
Dim ts1 As New DataGridTableStyle
ts1.MappingName = 'showDataGrid'
'获取或设置网格中奇数行的背景色
ts1.AlternatingBackColor = Color.LightGray
'参看DataGridTextBoxColumn 类
Dim TextCol As New DataGridTextBoxColumn
'DataGridColumnStyle.MappingName 属性:获取或设置用于将列样式映射到数据成员的名称。
TextCol.MappingName = 'cCountID'
TextCol.HeaderText = '编号'
TextCol.Width = Len(TextCol.HeaderText) * 20
ts1.GridColumnStyles.Add(TextCol)
Dim TextCol1 As New DataGridTextBoxColumn
TextCol1.MappingName = 'cCountName'
TextCol1.HeaderText = '名称'
TextCol1.Width = Len(TextCol1.HeaderText) * 50
ts1.GridColumnStyles.Add(TextCol1)
Dim TextCol2 As New DataGridTextBoxColumn
TextCol2.MappingName = 'iLastStartNO'
TextCol2.HeaderText = '上次起始号码'
TextCol2.Width = Len(TextCol2.HeaderText) * 14
ts1.GridColumnStyles.Add(TextCol2)
Dim TextCol3 As New DataGridTextBoxColumn
TextCol3.MappingName = 'iEndNO'
TextCol3.HeaderText = '上次结束号码'
TextCol3.Width = Len(TextCol3.HeaderText) * 14
ts1.GridColumnStyles.Add(TextCol3)
Dim TextCol4 As New DataGridTextBoxColumn
TextCol4.MappingName = 'iNowNO'
TextCol4.HeaderText = '本次起始号码'
TextCol4.Width = Len(TextCol4.HeaderText) * 14
ts1.GridColumnStyles.Add(TextCol4)
DataGrid1.TableStyles.Add(ts1)
TablesAlreadyAdded = True
End Sub
Private Sub btnshowTable_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnshowTable.Click
'DataGrid.SetDataBinding 方法:在运行时设置 DataSource 和 DataMember 属性。
DataGrid1.SetDataBinding(dsCtf, 'showDataGrid')
End Sub
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
End Sub
End Class
