[求助]自动生成树的问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]自动生成树的问题

共有2375人关注过本帖树形打印复制链接主题：[求助]自动生成树的问题

有点甜

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/26 14:22:00 [显示全部帖子]

读取数据字典的值，循环目录树的节点，修改目录树节点值，即可

Dim dmp = Tables("表A").cols("第二列").DataMap
msgbox(dmp("1"))
msgbox(dmp("2"))

有点甜

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/26 17:37:00 [显示全部帖子]

如果是数值列，试试改成

Dim dmp = Tables("数据字典表").cols("LB").DataMap
MESSAGEBOX.Show(dmp(1))

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/26 22:36:00 [显示全部帖子]

那你的key显示什么？key的类型是数值还是字符？

或者，你做个对应的实例发上来测试。

有点甜

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/26 23:09:00 [显示全部帖子]

做个例子发上来测试吧，你第一步肯定是不需要的。

有点甜

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：2018/12/27 9:39:00 [显示全部帖子]

'自动生成树
Dim tv1 As WinForm.TreeView = e.Form.Controls("TreeView1")
tv1.BuildTree("数据字典表", "LB|FLMC")
'遍历目录树,替换节点值

Dim dmp = Tables("数据字典表").Cols("LB").DataMap
For Each nd As Object In tv1.Nodes
nd.text = dmp(cdbl(nd.name))
Next

主题：[求助]自动生成树的问题