Foxtable(狐表)用户栏目专家坐堂 → [求助]多条件筛选,求助代码


  共有4699人关注过本帖树形打印复制链接

主题:[求助]多条件筛选,求助代码

帅哥哟,离线,有人找我吗?
moseser
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
[求助]多条件筛选,求助代码  发帖心情 Post By: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
图片点击可在新窗口打开查看

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By: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
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:三尾狐 帖子:622 积分:5303 威望:0 精华:0 注册:2022/4/4 14:42:00
回复:(有点蓝)参考:http://www.foxtable.com/webh...  发帖心情 Post By:2022/5/16 17:35:00 [只看该作者]

另外请教一下,其中的 %  ,是什么意思?
还有后面不含如何写,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111381 积分:566969 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2022/5/16 17:38:00 [只看该作者]


 回到顶部