主题：[求助]看帮助，把里面的代码复制到事件中。不成功啊

看帮助里面的动态目录树列表，打开CaseStudy目录下的文件：动态目录树列表.Table

要看什么代码，比如说，该代码判断了表名，而该文件根本没有这个表，自然就不执行了，出现各种问题都有可能！

帮助应该和

一致吧？

 

关键问题在这里，什么情况只有您知道，复制的哪里的代码，别人不清楚！

动态目录树列表

利用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()

您在客户表的省那一列选择输入试试，没试怎么知道啊，我测试可以，您为什么就不行？

 

有图为证：

 

 

此主题相关图片如下：5.jpg

如果没有反应，最好做个简单的例子发上来，大家才能帮你分析出为什么没有反应。