以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  窗口内多控件的模糊搜索？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=139562)

--  作者：fengwenliuyan --  发布时间：2019/8/15 16:54:00 --  窗口内多控件的模糊搜索？ 以下代码，是可以正常模糊搜索客户列，但是，如下方上传的项目中，窗口内多控件的模糊搜索，代码却不起作用，请帮忙修正一下，谢谢！ Dim tbl As Table = Tables("入库窗口_入库表") Dim kh As String = e.Form.Controls("客户").Text If kh = "" Then     tbl.Filter = "" Else     kh = "\'%" & kh & "%\'"     tbl.Filter = "客户 Like " & kh End If  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:管理项目1.zip

--  作者：有点蓝 --  发布时间：2019/8/15 17:04:00 --   参考：http://www.foxtable.com/webhelp/topics/1058.htm

--  作者：fengwenliuyan --  发布时间：2019/8/15 17:11:00 --  回复：（有点蓝）参考：http://www.foxtable.com/webh... 这是精准搜索，而不是模糊搜索，项目已上传，请帮忙看下，哪里需要修改，谢谢

--  作者：有点蓝 --  发布时间：2019/8/15 17:14:00 --   帮助是精准搜索，您可以改为模糊搜索啊。灵活一点咯

--  作者：fengwenliuyan --  发布时间：2019/8/15 17:21:00 --  回复：（有点蓝）帮助是精准搜索，您可以改为模糊搜索... 试过了，一直没成功，所以，大神，您帮帮忙，直接修改一下吧，拜托了??

--  作者：有点蓝 --  发布时间：2019/8/15 17:40:00 --   比如 Dim Filter As String With e.Form.Controls("客户")     If .Value IsNot Nothing Then         Filter = "客户 like \'%" & .Value & "%\'"     End If End With With e.Form.Controls("入库编号")     If .Value IsNot Nothing Then         If Filter > "" Then             Filter = Filter & " And "         End If         Filter = Filter & "入库编号 like \'%" & .Value & "%\'"     End If End With If Filter > "" Then     Tables("入库窗口_入库表").Filter = Filter End If