以下是引用筑梦踏实在2015/3/18 22:43:00的发言：谢谢，你的代码太牛了，真对好厉害。
不过，我还有问题请教，这是所有表都用这个目录树了，哪我要是在不同的三张表上各取1个列或2个列的值，生成一个目录树，哪我得怎么写代码啊？
那就得分开写。
Select Case MainTable.Name
Case "客户", "订单"
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") '指定目录树表
Select Case MainTable.name
Case "客户"
tb.TreeCols = "省|县市" '指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
Case "订单"
tb.TreeCols = "省|县市" '指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
Case Else
tb.TreeCols = "省|县市" '指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" '指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" '指定数据接收列
End Select
MainTable.Cols("省").DropTree = tb.Build()
End Select
加好友 
发短信
Post By：2015/3/18 15:36:00 [显示全部帖子]
