主题：[求助]以下代码是“按日期年、月、客户”顺序的筛选树，求改成顺序为“客户、工序、品名规格、月、年”的筛选树的代码？

 你能不能看懂代码变通一下？举一反三啊，不然所有的筛选树都要帮你写？

1、生成统计表的时候，加上你需要的列分组

2、生成目录树的时候，设置好各列的顺序

3、编写统计和筛选代码的时候，对应合成条件。

 加上单引号即可

'首先生成统计表
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表2",DataTables("统正电泳出入库登记表"))
b.Groups.AddDef("客户")
b.Groups.AddDef("工序")
b.Groups.AddDef("品名规格")
b.Totals.AddDef("出库金额",AggregateEnum.Count, "个数")
dt = b.Build '参数设置为False,生成一个临时表,不在主界面显示
'然后根据统计表生成目录树
Dim trv As WinForm.TreeView = e.Form.Controls("TreeView1")
trv.BuildTree(dt, "客户|工序|品名规格")
trv.StopRedraw
For Each nd As WinForm.TreeNode In trv.AllNodes
    Dim Product As String = nd.DataRow("客户")
    Dim gx As String = nd.DataRow("工序")
    Dim pmgg As String = nd.DataRow("品名规格")
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "客户(" & dt.Compute("Sum(个数)","客户 = '" & Product & "'") & "条)"
        Case 1
            nd.Text = nd.text & "工序(" & dt.Compute("Sum(个数)","客户 = '" & Product & "' And 工序 = '" & gx & "'") & "条)"
        Case 2
            nd.Text = nd.text & "品名规格(" & dt.Compute("Sum(个数)","客户 = '" & Product & "' And 工序 = '" & gx & "' And 品名规格 = '" & pmgg & "'") & "条)"
        Case 3
            nd.Text = nd.text & "(" & nd.DataRow("个数") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(个数)") & "条)",0)
trv.ResumeRedraw