主题：多关键词模糊查找

参考自定义录入界面二做了模糊查询窗口，但是发现不能多个关键词查询，请问如何做到？另外自身带的查找功能限制了列名，只能一列一列查询，能不能实现整个表格多个关键词模糊查询

搜索“全表模糊查找”

可以多个关键词么？

 

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

 

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

按照您的代码做的，一搜索就什么都没了， 不知道哪里出的问题 。

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

点击浏览该文件:多关键词产品模糊搜索.rar

已经上传， 请帮忙看看。

谢谢狐爸，单位想一月份能上线，只能先取捷径，有时间一定从头学习。

试了下，不是预期的效果，增加空格增加关键词后，反而增加了产品范围，是不是应该改成多关键词准确搜索？

参考代码

 

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