- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 求助：模糊查找 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=122849)
-- 发布时间：2018/8/3 2:03:00
-- 求助：模糊查找
各位老师：在窗口中想查找包涵COMBOBOX1内容的值，但用LIKE替换=号无效！
Dim Filter As String
With e.Form.Controls("ComboBox1")
If .Value IsNot Nothing Then
If Filter > "" Then
Filter = Filter & " And "
End If
Filter = Filter & "检验岗 = \'" & .Value & "\'" ‘模糊查找包涵内容的值，不知道怎么写代码？
End If
End With
If Filter > "" Then
tbl.Filter = Filter
tbp.Filter = Filter
Tables("制造质量管理").Filter = Filter
End If
请老师指教！
-- 发布时间：2018/8/3 8:23:00
--
like \'%关键字%\'
-- 发布时间：2018/8/3 8:41:00
--
Filter = Filter & "检验岗 like \'%" & .Value & "%\'"
-- 发布时间：2018/8/3 8:47:00
--
谢谢，但是不行！
此主题相关图片如下：微信图片_20180803084533.png
-- 发布时间：2018/8/3 10:00:00
--
谢谢老师指教！
-- 发布时间：2018/8/3 10:08:00
--
Filter = Filter & "检验岗 like \'%" & .Value & "%\'"
-- 发布时间：2018/8/3 15:27:00
--
追问一个问题：
Tables("制造质量管理").Filter = "[底盘号] = \'JJ219951\'" And "[底盘号] = \'JJ219604\'"
这段代码我想要的效果时：在制造质量管理表中，查找底盘号为：JJ209951、JJ21952二台车的所有数据，但报错。
请指教！
此主题相关图片如下：微信图片_20180803152524.png
-- 发布时间：2018/8/3 18:09:00
--
Tables("制造质量管理").Filter = "[底盘号] = \'JJ219951\' And [底盘号] = \'JJ219604\'"