1个DataGrid、1个Button（Filter）、1个Label（City）、1个TextBox、1个ListBoxImports system.data.sqlclient Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load Me.SqlDataAdapter1.Fill(DataSet11, "customers") End SubPrivate Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim drselected() As DataRow Dim dr As DataRow Dim filterstr As String = "city='" & TextBox1.Text & "'" drselected = DataSet11.Tables("customers").Select(filterstr) ListBox1.Items.Clear() For Each dr In drselected ListBox1.Items.Add(dr("companyname")) NextEnd Sub