狐爸:我现在用类似于会计科目中的编号规则在编码,但生成的目录树不是按我的意思排序的,我按1,2,3,4排的,但生成目录树后顺序就变了,请告诉我怎么才能让它按顺序排,如下图:

此主题相关图片如下：clip_image002.jpg

我在总经理下面按1,2,3,4的顺序排了号的,但它生成出来就变了,请赐教

原来是：

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[父键] = \'" & nd.name & "\'")
For Each dr As DataRow In drs
    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("键"),dr("标题"))
    Functions.Execute("AddChildren",cd,dt)
Next

你改为：

Dim nd As WinForm.TreeNode = args(0)
Dim dt As DataTable = args(1)
Dim drs As List(of DataRow)
drs = dt.Select("[父键] = \'" & nd.name & "\'", "排序列")
For Each dr As DataRow In drs
    Dim cd As Winform.TreeNode = nd.Nodes.Add(dr("键"),dr("标题"))
    Functions.Execute("AddChildren",cd,dt)
Next