以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp) --  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2) ----  文本改变后执行代码  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=179817)

--  作者：foxtforme --  发布时间：2022/9/12 18:58:00 --  文本改变后执行代码 请教一下以下代码 Dim tbl As Table = Tables("采购待入仓记录_采购入仓")                  If e.sender.text = "" Then \'如果内容为空             tbl.Filter = "供应商 = \'" A供应商\'"         Else \'否则根据输入内容进行模糊筛选             Dim txt As String = "\'%" & e.sender.text & "%\'"             tbl.Filter = "采购单号 Like " & txt & " Or 物料名称 Like " & txt          End If 当输入内容时，如何根据“A供应商”基础上再进行模糊查找？谢谢

--  作者：有点蓝 --  发布时间：2022/9/12 20:15:00 --   Dim tbl As Table = Tables("采购待入仓记录_采购入仓") dim Filter as string = "供应商 = \'A供应商\'" If e.sender.text > "" Then \'如果内容不为空 Dim txt As String = "\'%" & e.sender.text & "%\'" Filter = Filter & " and (采购单号 Like " & txt & " Or 物料名称 Like " & txt & ")" endif tbl.Filter = Filter

--  作者：foxtforme --  发布时间：2022/9/13 10:21:00 --   谢谢老师！