Dim s As String
'请在这里设置代码从数据表中获得目录树字符串,并赋值给变量s
Dim tb As New DropTreeBuilder
tb.TreeString ="Name 数码产品 Text 数码产品 Inner Name 电脑 Text 电脑 Inner Name 笔记本 Text 笔记本 Name 服务器 Text 服务器 Name 台式机 Text 台式机 Inner Name 巨型台式机 Text 巨型台式机 Name 中型台式机 Text 中型台式机 Name 小型台式机 Text 小型台式机 Outer Outer Name 电脑配件 Text 电脑配件 Inner Name 机箱 Text 机箱 Name 主板 Text 主板 Outer Name 相机 Text 相机 Inner Name DC Text DC Name DV Text DV Outer Outer Name 家电产品 Text 家电产品 Inner Name 电视机 Text 电视机 Inner Name CRT电视 Text CRT电视 Name 液晶电视 Text 液晶电视 Outer Outer"
tb.ReceiveCols = "第一列|第二列|第三列|第四列" '指定数据接收列
Tables("表A").Cols("第三列").DropTree = tb.Build()
加好友 
发短信
Post By：2017/5/4 17:49:00 [只看该作者]
