- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 表数据查询 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=109648)
-- 发布时间：2017/11/16 10:35:00
-- 表数据查询
有表1，表2，两个表都有 id 列(会重复)
通过表2的复选框选择记录，根据选择记录中的id列的值，如有(a,b,c,d)
筛选出表1中ID列等于（a,b,c,d）的记录
求助
-- 发布时间：2017/11/16 11:20:00
--
最后合成筛选条件，如
Tables("表1").Filter = "id in (\'a\', \'b\', \'c\', \'d\')"
完整代码
dim str as string = "\'\',"
For Each r As Row In Tables("表2").GetCheckedRows
str &= "\'" & r("id") & "\',"
Next
msgbox(str.trim(","))
Tables("表1").Filter = "id in (" & str.trim(",") & ")"
-- 发布时间：2017/11/16 11:31:00
--
可以实现，多谢
-- 发布时间：2017/11/16 11:32:00
--
比较笨的方法
Dim str,str1 As String
str="\'"
For Each r As Row In Tables("表1").GetCheckedRows
str=str & r("id") & "\'" & "," & "\'"
Next
str=str.TrimEnd("\'")
str=str.TrimEnd(",")
str1="[id] in (" & str &")"
Tables("表2").Filter=str1