以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]查询窗口设计完成了，怎么做到字符串的包含模糊查询？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126529)
--  作者：soap_lwb
--  发布时间：2018/10/23 16:21:00
--  [求助]查询窗口设计完成了，怎么做到字符串的包含模糊查询？
http://www.foxtable.com/webhelp/index.htm?page=1058.htm

参照上迷方法设计完了一个查询窗口，最后

If Filter > "" Then
    Tables("订单").Filter = Filter
End If

如果表中有一列为字符串列，需要做模糊（包含字符）查询，怎么改写代码？
--  作者：tianwanshui
--  发布时间：2018/10/23 16:26:00
--  
用like加通配符就可以了
--  作者：有点甜
--  发布时间：2018/10/23 16:46:00
--  

比如

 

With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 = \'" & .Value & "\'"
    End If
End With

 

改成

 

With e.Form.Controls("cmbCustomer")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "客户 like \'%" & .Value & "%\'"
    End If
End With