- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 关联表（子表）目录树不能自动更新问题 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103911)
-- 发布时间：2017/7/19 14:53:00
-- 关联表（子表）目录树不能自动更新问题
我在关联表的子表内录入代码，独立表时候可以自动更新，作为子表时候目录树不能自动更新
\'清单明细表筛选树自动跟新
If MainTable.Name = "清单明细" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("工料单价") \'指定目录树表
tb.TreeCols = "工料一类|工料二类|工料名称" \'指定用于生成目录树的列
tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" \'指定数据来源列
tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" \'指定数据接收列
Tables("清单明细").Cols("工料一类").DropTree = tb.Build()
End If
此主题相关图片如下：a.png
此主题相关图片如下：a.png-- 发布时间：2017/7/19 15:03:00
--
写到CurrentTableChanged事件
If CurrentTable.Name like "*清单明细*" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("工料单价") \'指定目录树表
tb.TreeCols = "工料一类|工料二类|工料名称" \'指定用于生成目录树的列
tb.SourceCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" \'指定数据来源列
tb.ReceiveCols = "工料一类|工料二类|工料名称|工料单位|工料ID|综合单价" \'指定数据接收列
CurrentTable.Cols("工料一类").DropTree = tb.Build()
End If
[此贴子已经被作者于2017/7/19 15:03:54编辑过]
-- 发布时间：2017/7/20 10:29:00
--
谢谢老师指点，