- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 如何在主窗口中同时放父表及关联表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=54485)
-- 发布时间：2014/7/29 14:54:00
-- 如何在主窗口中同时放父表及关联表
由于业务及界面需要把客户表（父表）和订单明细表（子表）同时放在一个主窗口中，如何实现与关联表同等功能？如果有例子麻烦老师发个链接学习一下。
-- 发布时间：2014/7/29 14:55:00
--
帮助中只是说用Table控件模拟关联表，而我要把父表也显示在同一主窗口界面中。
-- 发布时间：2014/7/29 14:58:00
--
一样这样写，只要设置好父表的CurrentChanged事件即可。
[此贴子已经被作者于2014-7-29 14:57:55编辑过]
-- 发布时间：2014/7/29 15:42:00
--
绑定父表的TABLE不能用副本的方式吗？
-- 发布时间：2014/7/29 15:45:00
--
回复4楼，绑定表，也可以设置副本啊。你现在设置不了？
-- 发布时间：2014/7/29 16:07:00
--
老师见附件，点主表子表没有跟着联动，您帮忙看一下哪里不对。
-- 发布时间：2014/7/29 16:07:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:测试项目.rar |
-- 发布时间：2014/7/29 16:15:00
--
代码
If Forms("窗口1").Opened() \'一定要判断用于模拟关联表的窗口是否已经打开
Dim t As Table = Tables("窗口1_Table1")
With Tables("窗口1_Table2")
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "客户编号 = " & .Current("客户编号")
End If
End With
End If
-- 发布时间：2014/7/29 16:59:00
--
谢谢老师，如果将上面的CurrentChanged事件代码写在主表属性中的CurrentChanged事件应该如何改？
-- 发布时间：2014/7/29 17:01:00
--
If e.Table.Name = "窗口1_Table2" Then
Dim t As Table = Tables("窗口1_Table1")
With e.Table
If .Current Is Nothing Then
t.Filter = "False"
Else
t.Filter = "客户编号 = " & .Current("客户编号")
End If
End With
End If