- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助] 怎样才能做到快速精确查询到多行数据 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=104208)
-- 发布时间：2017/7/25 14:12:00
-- [求助] 怎样才能做到快速精确查询到多行数据
怎样才能做到快速精确查询到多行数据？
如附件“生产批号”列，位数比较长，要同时查询多个生产批号，如根据系统给定的查询条件进行帅选，比较花时间，可不可以设置代码，快速的查询所需要的多个符合条件的行？
此主题相关图片如下：tim图片20170725130009.png
-- 发布时间：2017/7/25 15:46:00
--
使用包含的方式筛选：http://www.foxtable.com/webhelp/scr/0117.htm
-- 发布时间：2017/7/25 16:00:00
--
这个只能模糊查询，且只能查一行，不能精确查找到多行符合数据的
-- 发布时间：2017/7/25 16:45:00
--
精确查询
Dim str As String = "1,2,3,4,5"
Tables("表a").filter = "编号 in (\'" & str.replace(",", "\',\'") & "\')"
模糊查询
Dim str As String = "1,2,3,4,5"
Dim filter As String = "1=2"
For Each s As String In str.split(",")
filter &= " or 编号 like \'%" & s & "%\'"
Next
msgbox(filter)
Tables("表a").filter = filter