Foxtable(狐表)用户栏目专家坐堂 → 表格下拉目录树


  共有7094人关注过本帖树形打印复制链接

主题:表格下拉目录树

美女呀,离线,留言给我吧!
fox-cjj
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:婴狐 帖子:5 积分:106 威望:0 精华:0 注册:2022/8/17 16:00:00
表格下拉目录树  发帖心情 Post By: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("计算口径")


 回到顶部