以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  帮助文件里这个目录树的代码怎么写？  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=75643)
--  作者：柚柚
--  发布时间：2015/10/12 11:21:00
--  帮助文件里这个目录树的代码怎么写？
Dim s As String
\'请在这里设置代码从数据表中获得目录树字符串,并赋值给变量s
Dim tb As New DropTreeBuilder
tb.TreeString = s \'设置目录树字符串
tb.ReceiveCols = "大类|二类|三类" \'指定数据接收列
Tables("订单").Cols("大类").DropTree = tb.Build()


这个第二行代码怎么写？
--  作者：大红袍
--  发布时间：2015/10/12 11:25:00
--  

你是不是要这样啊？

 

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") \'指定目录树表
tb.TreeCols = "省|县市" \'指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" \'指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" \'指定数据接收列
Tables("客户").Cols("省").DropTree = tb.Build()