如题,如何才能使排序正常从小到大排序

在帮助中学递归函数设置的目录树

功能分类_AfterLoadTableSetting

Tables("功能分类").Sort = "排序"

窗口表事件

窗口与控件事件

功能分类_AfterLoad

Dim tr As WinForm.TreeView = e.Form.Controls("TreeView1")

Dim nd As WinForm.TreeNode

Dim dt As DataTable = DataTables("功能分类")

tr.StopRedraw()

tr.Nodes.Clear

nd =tr.Nodes.Add("1","功能分类")

For Each dr As DataRow In dt.datarows

    If dr.IsNull("上级代码") Then

        nd = tr.Nodes.Add(dr("功能分类_代码"),dr("功能分类_代码") & ":" & dr("功能分类_科目名称"),"功能分类_代码")

        Functions.Execute("Addtree1",nd,dt)

    End If

Next

tr.ResumeRedraw()

自定义函数

Addtree1

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("功能分类_代码") &":"& dr("功能分类_科目名称"))

    Functions.Execute("Addtree1",cd,dt)

Next

附件难传只好将就用代码

没人会啊.......顶一下帮手看看

\'For Each dr As DataRow In dt.datarows

        改为:楼主的   For Each dr As DataRow In dt.Select("","功能分类_代码")

就正常了