[求助]请问下代码生成目录树怎么排序 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问下代码生成目录树怎么排序

共有3515人关注过本帖树形打印复制链接主题：[求助]请问下代码生成目录树怎么排序

忆似水流年

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：幼狐帖子：159 积分：1466 威望：0 精华：0 注册：2020/5/21 16:23:00

[求助]请问下代码生成目录树怎么排序 发帖心情

Post By：2023/6/27 14:35:00 [只看该作者]

此主题相关图片如下：目录树降序.png

想要降序排大的号码在第一行先谢谢啦：D

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

trv.BuildTree(gt, "Job|Serviceitem")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

Dim fl1 As String = nd.DataRow("Job")

Dim fl2 As String = nd.DataRow("Serviceitem")

Select Case nd.Level

Case 0

nd.Text = nd.text & "(" & gt.Compute("Sum(行数)", "Job='" & fl1 & "'") & "条)"

Case 1

nd.Text = nd.text & "(" & gt.Compute("Sum(行数)", "Job='" & fl1 & "' and Serviceitem='" & fl2 & "'") & "条)"

End Select

trv.Nodes.Insert("[显示所有行]", "[显示所有行(" & Val(gt.Compute("Sum(行数)")) & "条)]", 0)

trv.ResumeRedraw

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/6/27 14:41:00 [只看该作者]

trv.BuildTree(gt, "Job|Serviceitem","","Job desc")

BuildTree

根据指定的数据表内容生成目录树节点。

语法：

BuildTree(DataTableName, Columns, Filter, Sort)

或

BuildTree(DataTable, Columns, Filter, Sort)

DataTableName：	数据表名
DataTable：	数据表
Columns:	指定数据列，不同的列之间用符号“\|”隔开，例如：产品\|客户\|雇员”
Filter:	可选参数，指定过滤条件，请参考表达式的运算符和函数和条件表达式
Sort:	可选参数，设置排序，默认根据ColumnName参数指定的列排序

主题：[求助]请问下代码生成目录树怎么排序