Using dr As SqlDataReader = cmdLimingStudio.ExecuteReader
' 将从「北风贸易」数据库之「章立民研究室」数据表提取所得的数据记录
' 加载至个别独立存在的MyTable 此一DataTable 对象中。
myTable.Load(dr, LoadOption.OverwriteChanges)
End Using
End Using
' 将myTable 的数据内容显示在第一个DataGridView 控件中。
Me.DataGridView1.DataSource = myTable
' 根据myTable 此一DataTable 对象建立一个DataView,并且排序与筛选数据。
Dim myDataView As DataView = myTable.DefaultView
myDataView.Sort = "部门, 姓名"
myDataView.RowFilter = "目前薪资> 40000 AND 地址LIKE '%台北市%'"
' 将myDataView 的数据内容显示在第二个DataGridView 控件中。
Me.DataGridView2.DataSource = myDataView
' 根据myDataView 建立出一个全新的DataTable 对象,
' 并且要求DataTable 对象只内含DataView 中的「姓名」、
' 「目前薪资」、「地址」与「玉照」等四个字段。此外,
' 重复的数据记录将不会内含于DataTable 对象中。
Dim myNewTable As DataTable = myDataView.ToTable("章立民研究室子集", _
True, New String() {"姓名", "目前薪资", "地址", "玉照"})
' 将myNewData 的数据内容显示在第三个DataGridView 控件中。
Me.DataGridView3.DataSource = myNewTable
' 将从「北风贸易」数据库之「章立民研究室」数据表提取所得的数据记录
' 加载至个别独立存在的MyTable 此一DataTable 对象中。
myTable.Load(dr, LoadOption.OverwriteChanges)
End Using
End Using
' 将myTable 的数据内容显示在第一个DataGridView 控件中。
Me.DataGridView1.DataSource = myTable
' 根据myTable 此一DataTable 对象建立一个DataView,并且排序与筛选数据。
Dim myDataView As DataView = myTable.DefaultView
myDataView.Sort = "部门, 姓名"
myDataView.RowFilter = "目前薪资> 40000 AND 地址LIKE '%台北市%'"
' 将myDataView 的数据内容显示在第二个DataGridView 控件中。
Me.DataGridView2.DataSource = myDataView
' 根据myDataView 建立出一个全新的DataTable 对象,
' 并且要求DataTable 对象只内含DataView 中的「姓名」、
' 「目前薪资」、「地址」与「玉照」等四个字段。此外,
' 重复的数据记录将不会内含于DataTable 对象中。
Dim myNewTable As DataTable = myDataView.ToTable("章立民研究室子集", _
True, New String() {"姓名", "目前薪资", "地址", "玉照"})
' 将myNewData 的数据内容显示在第三个DataGridView 控件中。
Me.DataGridView3.DataSource = myNewTable