以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  表格下拉目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=179349)

--  作者:fox-cjj
--  发布时间:2022/8/19 14:07:00
--  表格下拉目录树
图片点击可在新窗口打开查看
1、如上图所示:最终需要实现的目标是在图二:表B(数据表来源为图一:表A)的下拉框中显示如图三类似的目录如一级目录显示:1 总建面;二级目录显示1.1 地下建面。需要如何操作?
  目前初步编制代码如下:
Dim kjml As New DropTreeBuilder
kjml.SourceTable = DataTables("表B) 
kjml.TreeCols = "{序号}"
kjml.PathSeparator = "."
kjml.SourceCols = "计算口径"
kjml.ReceiveCols = "计算口径_内容"
kjml.ContentSeparator =  "."
kjml.SeparateContent = False
Tables("表A").Cols("计算口径_内容").DropTree = kjml.Build()
2、如果中用Combolist实现下拉操作,能否实现上述显示?或者这个如何序号进行排序:
\'Tables("表A").Cols("计算口径_内容").Combolist = DataTables("表B").GetComboListString("计算口径")


--  作者:有点蓝
--  发布时间:2022/8/19 14:17:00
--  
使用下拉窗口做:http://www.foxtable.com/webhelp/topics/2350.htm