在文本框中输入“一  二”，就是筛选出包括“一”、“二”的行？

我也偿试过，最终以失败告终。

失败？

贴出你写的代码，我帮你看看。

大概是这样吧

If e.Form.Controls("TextBox1").Value <> "" Then
    Dim Vals() As String = e.Form.Controls("TextBox1").Value.Split(" ")
    Dim Filter As String
    For Val As Integer = 0 To Vals.Length - 1
        Filter = Filter & "|[某列] Like \'*" & Vals(Val) & "*\'"
    Next
    CurrentTable.Filter = Filter.Trim("|").Replace("|"," Or")
End If

以下是引用lihe60在2010-11-9 9:14:00的发言：

下载信息  [文件大小：300.0 KB  下载次数：1]

点击浏览该文件:管理项目5.table

Values = Multi.split("0")应改为Values = Multi.split(" ")

有两个缺点：

1、两组字符之间只能有一个空格

2、每组字符要指定对应的列

第一个可以克服，第二个问题每组字符不能指定对应列

两列数据，这样就可以

Dim Vals() As String = e.Form.Controls("TextBox1").Text.Split(" ")
Dim Filter As String
Select Case Vals.Length
    Case 1
        Tables("窗口1_Table1").Filter = "[第一列] Like \'*" & Vals(0) & "*\'"
    Case 2
        Tables("窗口1_Table1").Filter = "[第一列] Like \'*" & Vals(0) & "*\' And [第二列] Like \'*" & Vals(1) & "*\'"
    Case Else
        Tables("窗口1_Table1").Filter = ""
End Select

Dim cmd As New SQLCommand
Dim Count AS Integer
cmd.CommandText = "select count(*) FROM {表A}"
Count= cmd.ExecuteNonQuery()
messagebox.show(count)

输出的结果为0，为什么不是表A的实际行数？

为什么用ExecuteNonQuery()而不是ExecuteScalar()呢？

Dim Count AS Integer
Dim cmd As New SQLCommand
cmd.CommandText = "Select Count(*) FROM {表A}"
Count = cmd.ExecuteScalar()
Output.Show(Count)