以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]两个副本表按同一个目录树的筛选同步显示数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=134172)

--  作者:hanzhang98
--  发布时间:2019/4/29 8:06:00
--  [求助]两个副本表按同一个目录树的筛选同步显示数据
老师好。

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

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

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

--  作者:有点甜
--  发布时间:2019/4/29 9:48:00
--  

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

 

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

 


--  作者:hanzhang98
--  发布时间:2019/4/29 10:19:00
--  
谢谢老师指导。按老师的指导,已成功实现一个目录树同时筛选两个表。但还得请教老师,下面经老师指导的代码又得怎样修改,也才能同时筛选两个表。请老师指导帮助。谢谢。

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编辑过]

--  作者:有点甜
--  发布时间:2019/4/29 12:45:00
--  

 

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


--  作者:hanzhang98
--  发布时间:2019/4/29 14:49:00
--  
谢谢老师指导。