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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关于目录树节点顺序调整

共有3070人关注过本帖树形打印复制链接主题：关于目录树节点顺序调整

chnfo

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

等级：九尾狐帖子：2223 积分：18276 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/9/1 18:24:00 [显示全部帖子]

如果目录层级这么深，还不如将这个树的原数据用表来构建。

这样，就直接通过代码去修改移动行的_SortKey就快多了，这样，不需要动这个节点的子节点的SortKey

chnfo

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

等级：九尾狐帖子：2223 积分：18276 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/9/3 11:54:00 [显示全部帖子]

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=117206&ID=160494&skin=1

这个可以参考一下。

区域的顶行和底行可以判断的

chnfo

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

等级：九尾狐帖子：2223 积分：18276 威望：0 精华：0 注册：2011/11/26 20:21:00

Post By：2021/9/9 17:12:00 [显示全部帖子]

如果树节点不多的话，直接给它们全部重新排序就好了。如果数据行上万，就不太适合

－－－－如果要在窗口中新增加节点的话，只下面的代码就不行了。所以，如果新增行，最好是在表中增加。或者增加节点的时候，同步在表中增加。

Dim trv1 As WinForm.TreeView = Forms("CS").Controls("TreeView1")

Dim dic As new Dictionary(of DataRow,Double)

For i As Integer = 0 To trv1.AllNodes.Count - 1

Dim nd As WinForm.TreeNode = trv1.AllNodes(i)

Dim ndr As DataRow = nd.DataRow

If ndr IsNot Nothing Then

dic.add(ndr,i)

End If

For Each dr As DataRow In dic.Keys`

dr.BaseRow("_SortKey") = i

[此贴子已经被作者于2021/9/9 17:14:46编辑过]

主题：关于目录树节点顺序调整