关联表如何与主表同步筛选? - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关联表如何与主表同步筛选?

共有2224人关注过本帖树形打印复制链接主题：关联表如何与主表同步筛选?

sloyy

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

加好友

发短信

等级：九尾狐帖子：2193 积分：13908 威望：0 精华：2 注册：2012/2/25 10:59:00

关联表如何与主表同步筛选? 发帖心情

Post By：2015/7/18 11:35:00 [只看该作者]

如图:主表"年度预算安排表" 关联表 "预算下达情况表" 通过预算号关联,现在主表通过部门筛选,选出了一部分记录,现在我想问:关联表如何同步筛选出同部门的记录?

此主题相关图片如下：搜狗截图20150718112611.png

此主题相关图片如下：搜狗截图20150718112647.png

狐狸爸爸

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

加好友

发短信

等级：管理员帖子：47497 积分：251403 威望：0 精华：91 注册：2008/6/17 17:14:00

Post By：2015/7/18 11:44:00 [只看该作者]

可以看看这个：

http://www.foxtable.com/help/topics/2228.htm

灵活变通一下，就是你的答案，在主表的AfterFilter事件写代码：

If Tables("订单").Rows.Count = 0 Then
    Tables("订单明细").Filter = "订单ID Is Null"
Else
     Dim ids As String
     For Each dr As Row In Tables("订单").Rows
         ids = ids & ",'" & dr("订单ID") & "'"
     Next
     ids= ids.Trim(",")
     Tables("订单明细").Filter = "订单ID In (" & ids & ")"
End If