以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  目录树节点排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=191058)

--  作者：yifan3429 --  发布时间：2024/3/24 11:37:00 --  目录树节点排序   Dim Multi As String = dr("布局_PC功能")             Dim newMulti As String = "(\'" & Multi.Replace("|", "\',\'") & "\')"              Dim drs As List(Of DataRow) = cdwdt.Select("[主窗] in " & newMulti, "菜单排序")  已经可以排序             For Each drn As DataRow In drs                 If tr.Nodes.Contains(drn("主菜单")) Then                     nd = tr.Nodes(drn("主菜单"))                 Else                     nd = Tr.Nodes.Add(drn("主菜单"), drn("主菜单"))                     nd.ForeColor = Color.Red                  End If                 nd.Nodes.Add(drn("主窗"), drn("主窗"))    \'节点名称用"客户ID", 节点标题用"客户名称"  希望这里也可以排序  改成 nd.Nodes.Add(drn("排序】"), drn("主窗")) 好像也不行             Next

--  作者：有点蓝 --  发布时间：2024/3/24 20:30:00 --   节点的添加的顺序依赖cdwdt.Select的顺序，把"菜单排序"改为希望的顺序即可