以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=114399)
--  作者：yifan3429
--  发布时间：2018/2/5 14:13:00
--  动态目录树

下面代码需要增加 过滤条件  指定 省条件“湖北”

Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") \'指定目录树表
tb.TreeCols = "省|县市" \'指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" \'指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" \'指定数据接收列
Tables("客户").Cols("省").DropTree = tb.Build()
--  作者：有点甜
--  发布时间：2018/2/5 14:17:00
--  
Dim tb As New DropTreeBuilder
tb.SourceTable = DataTables("行政区域") \'指定目录树表
tb.TreeCols = "省|县市" \'指定用于生成目录树的列
tb.SourceCols = "省|县市|区号|邮编" \'指定数据来源列
tb.ReceiveCols = "省|县市|区号|邮编" \'指定数据接收列
tb.TreeFilter = "省=\'湖北\'"
Tables("客户").Cols("省").DropTree = tb.Build()