以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]多条件筛选，求助代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177295)
--  作者：moseser
--  发布时间：2022/5/16 17:24:00
--  [求助]多条件筛选，求助代码
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:新城 预计总成本分析 v4.table

我想实现清单的筛选，目前已经实现了一部分，不知道如何编写代码了，求大神帮着
1：通过输入包含 [条件1] 和[条件2]，能筛选出，下面清单中，项目名称、项目特征、计量单位中 ，有同时存在两个条件的清单，如果只输入一个，职满足一个就行
2：如果输入， 不包含，这需要满足三个条件

我只写好了一个，就是 满足条件1 的清单列出来

代码如下：

Dim txt As String = e.Form.Controls("TextBox1").Text
Dim tbl As Table = Tables("原始清单")

If txt = "" Then
    tbl.Filter = ""
Else
    txt = "\'%" & txt & "%\'"
    tbl.Filter = "项目名称 Like " & txt & " Or 项目特征 Like " & txt & " Or 计量单位 Like " & txt & " "
End If
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
--  作者：有点蓝
--  发布时间：2022/5/16 17:31:00
--  
参考：http://www.foxtable.com/webhelp/topics/1058.htm

Dim Filter As String
With e.Form.Controls("TextBox1")
    If .Value IsNot Nothing Then
    Dim txt As String = "\'%" & .Value & "%\'"
    Filter  = "(项目名称 Like " & txt & " Or 项目特征 Like " & txt & " Or 计量单位 Like " & txt & " )"
    End If
End With
With e.Form.Controls("TextBox2")
    If .Value IsNot Nothing Then
        If Filter > "" Then
            Filter = Filter & " And "
        End If
    Dim txt As String = "\'%" & .Value & "%\'"
    Filter  = Filter & "(项目名称 Like " & txt & " Or 项目特征 Like " & txt & " Or 计量单位 Like " & txt & " )"
    End If
End With
--  作者：moseser
--  发布时间：2022/5/16 17:35:00
--  回复：（有点蓝）参考：http://www.foxtable.com/webh...
另外请教一下，其中的 %  ，是什么意思？
还有后面不含如何写，谢谢
--  作者：有点蓝
--  发布时间：2022/5/16 17:38:00
--  
参考：http://www.foxtable.com/webhelp/topics/0102.htm