以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  请教目录树  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=147105)
--  作者：hb8888
--  发布时间：2020/3/10 0:01:00
--  请教目录树
大师：请问根据表生成的目录树，如何自动把某一同层节点移动到该层的第一节点？
--  作者：有点蓝
--  发布时间：2020/3/10 8:52:00
--  
Dim trv As WinForm.TreeView
trv=Forms("窗口2").Controls("TreeView1")
Dim nn As WinForm.TreeNode = trv.Nodes(2)
Do While nn.Index > 0 
    nn.MoveUp
Loop
--  作者：hb8888
--  发布时间：2020/3/10 13:39:00
--  
谢谢！这样在目录树节点较多的情况下，效率好像受到影响？本来可以先根据表排序好，再生成，但是根据_sortkey排序生成又不全！太烦了！
--  作者：有点蓝
--  发布时间：2020/3/10 14:24:00
--  
更新到2020版：http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&Id=146106

2020年3月5日更新

1、修正了分批保存新增行很容易失败的bug.

2、修正了使用BuildTree生成目录树，且自定义排序方式时，生成的目录树节点可能会不全的bug。