求助：模糊查找 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求助：模糊查找

共有2355人关注过本帖树形打印复制链接主题：求助：模糊查找

cxmxjwlmq

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：小狐帖子：349 积分：4118 威望：0 精华：0 注册：2018/4/6 18:02:00

求助：模糊查找 发帖心情

Post By：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