- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 为什么动态目录树列表，在关联后没效了？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=32890)
-- 发布时间：2013/5/9 22:30:00
-- 为什么动态目录树列表，在关联后没效了？
If MainTable.Name = "销售副表" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品表") \'指定目录树表
tb.TreeCols = "产品类|产品名称" \'指定用于生成目录树的列
tb.SourceCols = "产品类|产品名称" \'指定数据来源列
tb.ReceiveCols = "|产品名称" \'指定数据接收列
Tables("销售副表").Cols("产品名称").DropTree = tb.Build()
End If
在销售主表与销售副表关联后，再操作销售主表.销售副表时，这个动态目录树列表就失效了！
求解呀·······
-- 发布时间：2013/5/10 0:05:00
--
If Currenttable.Name = "销售副表" orelse
Currenttable.name = "销售主表.销售副表" Then
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品表") \'指定目录树表
tb.TreeCols = "产品类|产品名称" \'指定用于生成目录树的列
tb.SourceCols = "产品类|产品名称" \'指定数据来源列
tb.ReceiveCols = "产品类|产品名称" \'指定数据接收列
Tables(Currenttable.name).Cols("产品名称").DropTree = tb.Build()
End If
[此贴子已经被作者于2013-5-10 0:08:09编辑过]
-- 发布时间：2013/5/10 0:25:00
--
谢谢老程···
-- 发布时间：2013/5/13 23:10:00
--
是可以了！把代码放在AfterOpenProject里面，每次重新打开软件时，在“销售主表.销售副表”中都没法显示下拉列表来！求解！
[此贴子已经被作者于2013-5-13 23:11:41编辑过]
-- 发布时间：2013/5/14 8:45:00
--
难道你的关联是动态建立的，如果不是，直接在AfterOpenptoject事件设置代码：
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("产品表") \'指定目录树表
tb.TreeCols = "产品类|产品名称" \'指定用于生成目录树的列
tb.SourceCols = "产品类|产品名称" \'指定数据来源列
tb.ReceiveCols = "产品类|产品名称" \'指定数据接收列
Tables("销售副表").Cols("产品名称").DropTree = tb.Build()
Tables("销售主表.销售副表").Cols("产品名称").DropTree = tb.Build()