1个DataGrid、1个Button（Filter）、1个TextBox Imports.system.data.sqlclientPrivate Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load SqlDataAdapter1.Fill(dataset11, "orderdetails") End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim dv As DataView = New DataView dv.Table = DataSet11.Tables("orderdetails") dv.RowFilter = TextBox1.Text MessageBox.Show(dv.Count) DataGrid1.DataSource = dv End Sub