主题：多关键词模糊查找

那你就用空格分割多个关键字

Dim str As String = e.Form.Controls("TextBox1").Text
Dim filter As String = "1=2"
For Each dc As Col In CurrentTable.Cols
    For Each s As String In str.split(" ")
        filter &= " Or convert(" & dc.Name & ",'System.String') like '%" & s & "%'"
    Next
Next
CurrentTable.Filter = filter

参考代码

Dim str As String = e.Form.Controls("TextBox1").Text
Dim t As Table = Tables("产品模糊查找_Table1")
If str = "" Then
    t.Filter = ""
Else
    Dim ary() As String = str.split(" ")
    Dim idxs As String = "-1,"
    For Each r As DataRow In t.DataTable.dataRows
        Dim count As Integer = 0
        For Each s As String In ary
            For Each c As Col In t.Cols
                If Cstr(r(c.name)).Contains(s) Then
                    count += 1
                    Exit For
                End If
            Next
        Next
        If count = ary.Length Then
            idxs &= r("_Identify") & ","
        End If
    Next
    t.Filter = "_Identify in (" & idxs.Trim(",") & ")"
End If