以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  目录树自动展开  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=177124)

--  作者:yifan3429
--  发布时间:2022/5/10 8:10:00
--  目录树自动展开
Dim tb As New DropTreeBuilder
tb.SourceTable = wdt \'指定目录树表
tb.TreeCols = "模块分组|模块名称" \'指定用于生成目录树的列
tb.SourceCols = "模块名称|模块ID" \'指定数据来源列
tb.ReceiveCols = "产品分类|模块ID" \'指定数据接收列
怎么做到点击后自动展开
Tables("订单_产品主表").Cols("产品分类").DropTree = tb.Build()
Tables("订单_产品主表").Cols("产品分类").AllowTypeAssistant = True \'启用输入助手
--  作者:有点蓝
--  发布时间:2022/5/10 8:58:00
--  
没有办法自动展开