以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  如何建模糊查找窗口  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128624)
--  作者：BATASC750206
--  发布时间：2018/12/11 19:06:00
--  如何建模糊查找窗口
如何建模糊查找窗口？
--  作者：有点蓝
--  发布时间：2018/12/11 19:58:00
--  
参考：http://www.foxtable.com/webhelp/scr/1058.htm

Like 运算符用于比较字符串，在 Like 比较中，* 和 % 作为通配符，两者可以互换，表示任意个数的字符，通配符只能在开头或者结尾出现。例如： 

[姓名] Like \'%赫%\'

[姓名] Like \'赫%\'

[姓名] Like \'%赫\'

分别表示姓名中包括“赫”，姓名开头是“赫”(姓赫)，姓名结尾是“赫”

在字符串的中间不允许使用通配符。例如，不允许 \'赫*丰\'，也不允许 \'赫%丰\'
--  作者：BATASC750206
--  发布时间：2018/12/12 20:02:00
--  
Dim Filter   As   String
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("cmbProduct")
       If .Value   IsNot   Nothing  Then
         Filter =   "产品编号 = \'" & .Value &   "\'"
       End   If
 End   With
If   Filter >   "" Then
     Tables("订单").Filter =   Filter
 End If
--  作者：BATASC750206
--  发布时间：2018/12/12 20:03:00
--  

请问以上代码如何改为模糊查找？

 
--  作者：有点甜
--  发布时间：2018/12/12 20:34:00
--  

比如

 

Filter = Filter &   "生产单号 = \'" & .Value &   "\'"

 

改成

 

Filter = Filter &   "生产单号 like \'%" & .Value &   "%\'"

 
--  作者：BATASC750206
--  发布时间：2018/12/13 18:24:00
--  

谢谢了，搞定