主题：递归函数目录树排序

狐爸:我现在用类似于会计科目中的编号规则在编码,但生成的目录树不是按我的意思排序的,我按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

 

狐爸:按您的方法,我的问题解决了,谢谢您!