主题：请教将统计加载树案例中增加部门分组的代码

老师您好！统计加载树我想先按部门分组再按年按月按产品，下面的代码没成功，敬请指导

将窗口的AfterLoad事件改为：

'首先生成统计表

Dim dt As DataTable

Dim b As New SQLGroupTableBuilder("统计表1","订单")

b.Groups.AddDef("部门ID")

b.Groups.AddDef("日期", DateGroupEnum.Year, "年")

b.Groups.AddDef("日期",DateGroupEnum.Month,"月")

b.Groups.AddDef("产品")

b.Totals.AddDef("_Identify",AggregateEnum.Count,"订单数")

dt = b.Build(False) '参数设置为False,生成一个临时表,不在主界面显示

'然后根据统计表生成目录树

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

trv.BuildTree(dt, "部门ID|年|月|产品")

trv.StopRedraw

For Each nd As WinForm.TreeNode In trv.AllNodes

    Dim Product As String = nd.DataRow("部门ID")

    Dim Year As Integer = nd.DataRow("年")

    Dim Month As Integer = nd.DataRow("月")

    'Dim Product As String = nd.DataRow("产品")

    Select Case nd.Level

        Case 0

            nd.Text = nd.text & "年(" & dt.Compute("Sum(订单数)","年 = " & Year) & "条)"

        Case 1

            nd.Text = nd.text & "月(" & dt.Compute("Sum(订单数)","年 = " & Year & " And 月 = " & Month) & "条)"

        Case 2

            nd.Text = nd.text & "(" & nd.DataRow("订单数") & ")"

    End Select

Next

trv.Nodes.Insert("加载所有行","加载所有行(" & dt.Compute("Sum(订单数)") & "条)",0)

trv.ResumeRedraw

我也修改了目录树的NodeMouseDoubleClick事件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:统计加载树2.zip

将"产品"的前面注释单引号去掉，提示“未知编译错误”

蓝老师，我在加载树点击产品PD01时出现提示，不知是否正常？

谢谢蓝老师！按您的提示，我又按部门、年、月、日、产品分组，我又增加一列“日”分组，成功了，谢谢！