主题：这样的筛选如何设置？

大概是这样吧

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

两列数据，这样就可以

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

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

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