目录树 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有2187人关注过本帖树形打印复制链接主题：目录树

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 9:29:00 [显示全部帖子]

以下是引用kaituozhe在2015/10/29 9:25:00的发言：

这两个我都看了，只能显示代码或名称，我想把两项并列显示出来 “代码名称” ，

方法一，弄一个表达式列，把两列内容合并；

方法二，生成目录树后，循环每一个节点，修改 nd.text = nd.DataRow("代码") & " " & nd.DataRow("名称")

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 9:49:00 [显示全部帖子]

[此贴子已经被作者于2015/10/29 9:54:27编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/10/29 9:54:00 [显示全部帖子]

哦，这样改

Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.GenerateTree("物料档案", "物料编号","物料名称",".","", "物料编号 DESC")
For Each nd As WinForm.TreeNode In trv.AllNodes
nd.Text =nd.DataRow("物料编号") & " " & nd.DataRow("物料名称")
Next

trv.Nodes.Insert("显示所有行",0)

下一主题 >> << 上一主题

主题：目录树