Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]批量筛选代码实现求助


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

主题：[求助]批量筛选代码实现求助
帅哥哟，离线，有人找我吗？
Adrain
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：288 威望：0 精华：0 注册：2018/1/11 4:09:00 		[求助]批量筛选代码实现求助  发帖心情 Post By：2018/4/25 15:51:00 [只看该作者]

大神好，
我想设置一个筛选窗口。当我输入多个查找对象，以逗号隔开，点击按钮，会筛选出所有的结果。
例如，我有一个员工信息表。在筛选窗口，我输入多位同事的ID并以逗号隔开，点击按钮，会筛选出这些同事的信息。
这个按钮的代码该怎么写呢？
 回到顶部
帅哥哟，离线，有人找我吗？
有点酸
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：五尾狐 帖子：1093 积分：6682 威望：0 精华：0 注册：2013/7/1 9:05:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
Adrain
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：288 威望：0 精华：0 注册：2018/1/11 4:09:00 		  发帖心情 Post By：2018/4/25 15:56:00 [只看该作者]

走过，路过的大神，麻烦帮忙看看~~~

 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/4/25 15:58:00 [只看该作者]

参考

 

http://www.foxtable.com/webhelp/scr/1058.htm

 

结合2楼，去写代码，即可。不会做上传实例。
 回到顶部
帅哥哟，离线，有人找我吗？
Adrain
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：30 积分：288 威望：0 精华：0 注册：2018/1/11 4:09:00 		  发帖心情 Post By：2018/4/25 15:58:00 [只看该作者]

大神，
感谢大神！！追问一句，如果我再窗口是通过文本框输入查询条件的，这个代码改怎么实现呢？谢谢~
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：4455 威望：0 精华：0 注册：2015/3/21 14:25:00 		批量筛选  发帖心情 Post By：2021/11/12 11:10:00 [只看该作者]

也想实现此功能，为什么用此代码，只能筛选出第一个逗号前的行，其他的筛选不出来呢

 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106063 积分：539408 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/12 11:17:00 [只看该作者]

逗号必须是英文逗号，不要混用中文逗号

 回到顶部
帅哥哟，离线，有人找我吗？
HANZHIGANG
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：410 积分：4455 威望：0 精华：0 注册：2015/3/21 14:25:00 		批量筛选  发帖心情 Post By：2021/11/12 11:28:00 [只看该作者]

可以了，多谢
那要是换成如图的形式呢，代码如何改
图片点击可在新窗口打开查看此主题相关图片如下：1.png
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106063 积分：539408 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2021/11/12 12:06:00 [只看该作者]

For Each val As String In vals.replace(vbcr,"").Split(vblf)

 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03906 秒, 4 次数据查询