[求助]两个副本表按同一个目录树的筛选同步显示数据 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师好。

请教老师：基于同一个主表（员工表），在同一个窗口中的两个页面集合中，分别生成两个副本表（“查询_副本1”、“查询_副本2”），同时基于主表（员工表）动态生成“目录树”。两个副本表分别用于显示主表中的有关列，其中有共同显示的列（比如：工号、姓名、性别），其余显示的列不相同。想请教老师的是：

1、能不能用基于主表（员工表）动态生成的 “目录树”，同时操控筛选两个副本表的数据，比如：用 “目录树” 选择了 “办公室” 节点，则在 “页面一” 中的 “查询_副本1” 中显示 “办公室” 的相关列数据。当手动切换到 “页面二” 的 “查询_副本2” 时，“查询_副本2” 也同步显示 “办公室” 的相关数据。也就是两个副本表按 “目录树” 筛选，同步显示相关数据，在现象上就好像是在查看一个表的不同页面内容，能否实现？

2、如能实现，“目录树” 的代码需要如何修改、相关的其它代码要如何写，请老师赐教。

你点击目录树的时候，对 table1、table2 分别设置筛选条件，不就好了？

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

谢谢老师指导。按老师的指导，已成功实现一个目录树同时筛选两个表。但还得请教老师，下面经老师指导的代码又得怎样修改，也才能同时筛选两个表。请老师指导帮助。谢谢。

Dim Ssqj As WinForm.ComboBox = e.Form.Controls("ComboBox1_Page13_Cx")

Dim Txt As String = Ssqj.value

Dim Tbl As Table = Tables("系统管理_Table1") 和 Tables("系统管理_Table3") '声明变量(表类型),初值为窗口表

If Txt = "" OrElse Txt = "全部" Then

Tbl.Filter = Vars("Filter")

Else

Txt = "'*" & Txt & "*'"

Tbl.Filter = Vars("Filter") & " And " & " 所属期间 Like " & Txt

End If

[此贴子已经被作者于2019/4/29 10:21:49编辑过]

Dim Ssqj As WinForm.ComboBox = e.Form.Controls("ComboBox1_Page13_Cx")
Dim Txt As String = Ssqj.value
Dim Tbl1 As Table = Tables("系统管理_Table1")
Dim tbl2 As Table = Tables("系统管理_Table3")    '声明变量(表类型),初值为窗口表
If Txt = "" OrElse Txt = "全部" Then
     Tbl1.Filter = Vars("Filter")
     Tbl2.Filter = Vars("Filter")
Else
    Txt = "'*" & Txt & "*'"
    Tbl1.Filter = Vars("Filter") & " And " & " 所属期间 Like " & Txt
    Tbl2.Filter = Vars("Filter") & " And " & " 所属期间 Like " & Txt
End If

谢谢老师指导。

主题：[求助]两个副本表按同一个目录树的筛选同步显示数据