表数据查询 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 表数据查询

共有1531人关注过本帖树形打印复制链接主题：表数据查询

sky2015

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：168 积分：1396 威望：0 精华：0 注册：2015/4/17 9:52:00

表数据查询

Post By：2017/11/16 10:35:00 [只看该作者]

有表1，表2，两个表都有 id 列(会重复)

通过表2的复选框选择记录，根据选择记录中的id列的值，如有(a,b,c,d)

筛选出表1中ID列等于（a,b,c,d）的记录

求助

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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(",") & ")"

sky2015

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：168 积分：1396 威望：0 精华：0 注册：2015/4/17 9:52:00

Post By：2017/11/16 11:31:00 [只看该作者]

可以实现，多谢

sky2015

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：168 积分：1396 威望：0 精华：0 注册：2015/4/17 9:52:00

Post By：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") & "'" & "," & "'"

str=str.TrimEnd("'")

str=str.TrimEnd(",")

str1="[id] in (" & str &")"

Tables("表2").Filter=str1

主题：表数据查询