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
加好友 
发短信
Post By：2024/3/24 11:37:00 [显示全部帖子]
