主题：[求助]多值列目录树

还有一个问题，下面生成的目录树 统计数量，能按降序排列嘛？

'多值列,生成目录树,单选模式

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

Dim stra As String = "|" & DataTables("员工资料").GetComboListString("姓名","分配任务组别 = '深化设计'","") & "|"

Dim stre As String = "|" & DataTables("室内设计项目").GetComboListString("深化设计完成时间节点_负责人","深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null","") & "|"

    

For Each dr As DataRow In DataTables("室内设计项目").DataRows

    If dr("深化设计完成时间节点_负责人") > "" Then

        For Each s As String In dr("深化设计完成时间节点_负责人").split(",")

            Dim nd As WinForm.TreeNode

            If s > "" AndAlso stra.Contains("|" & s & "|") AndAlso stre.Contains("|" & s & "|") AndAlso trv.Nodes.Contains(s) = False Then

                nd = trv.nodes.Add(s)

nd.text = nd.name & "  未完成 " & DataTables("室内设计项目").compute("count(深化设计完成时间节点_负责人)", "深化设计完成时间节点_负责人 like '%" & s & "%' and (深化设计完成时间节点_全套施工图完成时间_完成否 = '未完成' or 深化设计完成时间节点_全套施工图完成时间_完成否 is null)")

 

End If

        Next

    End If

Next