以下是引用程兴刚在2012-4-21 14:50:00的发言：
关键问题在这里，什么情况只有您知道，复制的哪里的代码，别人不清楚！
动态目录树列表
利用DropTreeBuilder，同样可以动态生成目录树列表。
本节的内容可以参考CaseStudy目录下的文件：动态目录树列表.Table
假定有一个“行政区域“表，结构如下：
我们希望在客户表输入数据的时候，能够根据该”行政区域“表自动生成目录树，用于输入省、县市、区号、邮编等列的内容。
为此可以在项目的AfterOpenProject事件中加入代码：
Dim
tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") '指定目录树表
tb.TreeCols = "省|县市" '指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
Tables("客户").Cols("省").DropTree = tb.Build()
这个是帮助文件的~
打开的是：动态目录树列表.Table
在AfterOpenProject事件中加入代码：
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") '指定目录树表
tb.TreeCols = "省|县市" '指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
Tables("客户").Cols("省").DropTree = tb.Build()
[此贴子已经被作者于2012-4-21 16:05:36编辑过]
加好友 
发短信
Post By：2012/4/21 13:31:00 [显示全部帖子]
Post By：2012/4/21 14:32:00 [显示全部帖子]
