以执行画面如图表1所示的程序而言,它使用DataTable的DefaultView属性来建立DataView,以便一开始能够于DataGrid控件中显示出来源数据表的所有数据列,并让使用者在执行阶段通过DataView来动态筛选数据。兹将程序代码列示如下:
' DataView 对象的类别层级宣告
Private dv As DataView
Private Sub DemoForm5_Load(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles MyBase.Load
FillComboBoxDepartment()
SqlDataAdapter1.Fill(Ds章立民工作室, "章立民工作室")
' 建立 DataView
dv = Ds章立民工作室.章立民工作室.DefaultView
' 显示 DataView 中的数据列数目
txtRowCount.Text = dv.Count.ToString
' 将 DataGridView 控件绑定至 DataView
Me.DataGridView1.DataSource = dv
End Sub
Private Sub FillComboBoxDepartment()
' 建立数据命令对象(亦即 SqlCommand 对象)
Dim foxCMD As New SqlCommand
foxCMD.Connection = SqlConnection1
foxCMD.CommandText = "SELECT DISTINCT 部门 FROM dbo.章立民工作室"
' 开启连接
SqlConnection1.Open()
Using myReader As SqlDataReader = foxCMD.ExecuteReader()
If myReader.HasRows Then
While myReader.Read()
ComboBoxDepartment.Items.Add(myReader.GetSqlString(0))
End While
End If
End Using
ComboBoxDepartment.SelectedIndex = 0
End Sub
Private Sub btnFilter_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnFilter.Click
dv.RowFilter = "部门= '" & _
ComboBoxDepartment.SelectedItem.ToString() & "'"
' 显示 DataView 中的数据列数目
txtRowCount.Text = dv.Count.ToString
End Sub
http://www.cnblogs.com/liminzhang/archive/2006/10/23/537518.html
文章整理:西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息,谢谢!



