如何一次将某个节点移至最顶端 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 如何一次将某个节点移至最顶端

共有3769人关注过本帖树形打印复制链接主题：如何一次将某个节点移至最顶端

李秀星

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

等级：婴狐帖子：20 积分：257 威望：0 精华：0 注册：2014/12/6 12:52:00

如何一次将某个节点移至最顶端 发帖心情

Post By：2014/12/10 22:50:00 [显示全部帖子]

生成的筛选树节点，怎么让某一个节点移至最顶端，例如有如下节点：

部门

型号

单价

员工信息

区域

如果想把区域移至最顶端，trv.Nodes("区域").moveup

但一次只能一步

李秀星

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

等级：婴狐帖子：20 积分：257 威望：0 精华：0 注册：2014/12/6 12:52:00

Post By：2014/12/11 11:08:00 [显示全部帖子]

根据2楼的指点，写如下代码实现了，不知这样些有隐患不？

Dim trv As WinForm.TreeView = e.Form.Controls("词典TreeView1")
trv.BuildTree("词典表","类别")

For i As Integer = 0 To trv.Nodes("设备型号").Index
trv.Nodes("设备型号").MoveUp
Next

主题：如何一次将某个节点移至最顶端