主题：目录树排序问题

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

 

此主题相关图片如下：如何设置目录树第一层从小到大排序.jpg

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

 

 

功能分类_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").Select("","功能分类_代码")

'For Each dr As DataRow In dt.datarows

 

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

就正常了

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