- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]批量筛选代码实现求助 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=118128)
-- 发布时间：2018/4/25 15:51:00
-- [求助]批量筛选代码实现求助
大神好，
我想设置一个筛选窗口。当我输入多个查找对象，以逗号隔开，点击按钮，会筛选出所有的结果。
例如，我有一个员工信息表。在筛选窗口，我输入多位同事的ID并以逗号隔开，点击按钮，会筛选出这些同事的信息。
这个按钮的代码该怎么写呢？
-- 发布时间：2018/4/25 15:52:00
--
Dim vals As String = "PD01,PD02"
Dim flt As String
For Each val As String In vals.Split(",")
If flt > "" Then
flt = flt & " Or "
End If
flt = flt & "产品= \'" & val & "\'"
Next
Tables("订单").Filter = flt
-- 发布时间：2018/4/25 15:56:00
--
走过，路过的大神，麻烦帮忙看看~~~
-- 发布时间：2018/4/25 15:58:00
--
参考
http://www.foxtable.com/webhelp/scr/1058.htm
结合2楼，去写代码，即可。不会做上传实例。
-- 发布时间：2018/4/25 15:58:00
--
大神，
感谢大神！！追问一句，如果我再窗口是通过文本框输入查询条件的，这个代码改怎么实现呢？谢谢~
-- 发布时间：2018/4/25 16:49:00
--
比如
Dim vals As String = e.form.controls("TextBox1").Text
Dim flt As String
For Each val As String In vals.Split(",")
If flt > "" Then
flt = flt & " Or "
End If
flt = flt & "产品= \'" & val & "\'"
Next
Tables("订单").Filter = flt
-- 发布时间：2021/11/12 11:10:00
-- 批量筛选
也想实现此功能，为什么用此代码，只能筛选出第一个逗号前的行，其他的筛选不出来呢
-- 发布时间：2021/11/12 11:17:00
--
逗号必须是英文逗号，不要混用中文逗号
-- 发布时间：2021/11/12 11:28:00
-- 批量筛选
可以了，多谢
那要是换成如图的形式呢，代码如何改
此主题相关图片如下：1.png
此主题相关图片如下：1.png-- 发布时间：2021/11/12 12:06:00
--
For Each val As String In vals.replace(vbcr,"").Split(vblf)