| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 如何一次将某个节点移至最顶端 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=61330) |
| -- 作者：李秀星 -- 发布时间：2014/12/10 22:50:00 -- 如何一次将某个节点移至最顶端 生成的筛选树节点，怎么让某一个节点移至最顶端，例如有如下节点： 部门 型号 单价 员工信息 区域
如果想把区域移至最顶端，trv.Nodes("区域").moveup 但一次只能一步 |
| -- 作者：有点甜 -- 发布时间：2014/12/10 22:57:00 -- 计算节点的个数，然后循环n次，执行moveup |
| -- 作者：有点甜 -- 发布时间：2014/12/10 23:02:00 -- 或者
Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1") Dim btr As object = tr.baseControl
得到btr对象后，插入节点，然后删除节点
|
| -- 作者：李秀星 -- 发布时间：2014/12/11 11:08:00 -- 根据2楼的指点，写如下代码实现了，不知这样些有隐患不？ Dim trv As WinForm.TreeView = e.Form.Controls("词典TreeView1") For i As Integer = 0 To trv.Nodes("设备型号").Index
|
| -- 作者：有点甜 -- 发布时间：2014/12/11 11:09:00 -- 木有隐患 |
| -- 作者：有点甜 -- 发布时间：2014/12/11 11:09:00 -- 或者，你在表那里，先设计好次序，再生成目录树 |