| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]表里的引用代码，怎么到窗口表（作为副表）不起作用了呢 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75668) |
| -- 作者：hrw68529 -- 发布时间：2015/10/12 15:51:00 -- [求助]表里的引用代码，怎么到窗口表（作为副表）不起作用了呢 在表中的数据跨表引用，怎么到窗口中的表（作为副表）时，数据引用不起作用了，怎么办，请看代码： If MainTable.Name = "人员增减" Then Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("单位基础数据") \'指定目录树表 tb.TreeCols = "县区|单位名称" \'指定用于生成目录树的列 tb.SourceCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据来源列 tb.ReceiveCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据接收列 tb.TreeSort = "序号" Tables("人员增减").Cols("县区").DropTree = tb.Build() End If 窗口表的名称为：人员增减_增减
|
| -- 作者：大红袍 -- 发布时间：2015/10/12 16:06:00 -- 窗口afterLoad事件加上代码 Dim tb As New DropTreeBuilder tb.SourceTable = DataTables("单位基础数据") \'指定目录树表
tb.TreeCols = "县区|单位名称" \'指定用于生成目录树的列
tb.SourceCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据来源列
tb.ReceiveCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据接收列
tb.TreeSort = "序号"
Tables("窗口1_Table1").Cols("县区").DropTree = tb.Build()
|
| -- 作者：hrw68529 -- 发布时间：2015/10/12 16:13:00 -- 厉害，搞定了，真的很厉害 |
| -- 作者：hrw68529 -- 发布时间：2015/10/12 16:22:00 -- 老大，发现一个问题，引用表中的数据变化后，跨表引用不能自动更新，如何是好？ |
| -- 作者：大红袍 -- 发布时间：2015/10/12 16:25:00 -- currentTableChanged事件写代码
If CurrentTable.Name = "窗口1_Table1" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("单位基础数据") \'指定目录树表
tb.TreeCols = "县区|单位名称" \'指定用于生成目录树的列
tb.SourceCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据来源列
tb.ReceiveCols = "县区|单位名称|单位代码|公员参照区分" \'指定数据接收列
tb.TreeSort = "序号"
currentTable.Cols("县区").DropTree = tb.Build()
End If
|
| -- 作者：hrw68529 -- 发布时间：2015/10/12 16:35:00 -- 真的是太好了，你速度太快了，谢谢 |