想实现动态生成筛选树，统计出每个生产车间及科室的人员数量，请教如何生成，项目附上，谢谢了！

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

点击浏览该文件:如何生成统计筛选树.rar

学着弄了一下午老是出错。。。

 afterload加入代码，至于筛选，你参考帮助文档做一下

\'首先生成统计表
Dim dt As DataTable
Dim b As New GroupTableBuilder("统计表1",DataTables("表A"))
b.Groups.AddDef("车间")
b.Groups.AddDef("科室")
b.Totals.AddDef("姓名",AggregateEnum.Count,"人数") \'根据客户列来统计记录数,也就是订单数
dt = b.Build(False) \'参数设置为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 cj As String = nd.DataRow("车间")
    Dim ks As String = nd.DataRow("科室")
   
    Select Case nd.Level
        Case 0
            nd.Text = nd.text & "(" & dt.Compute("Sum(人数)","车间 = \'" & cj & "\'") & "条)"
        Case 1
            nd.Text = nd.text & "(" & dt.Compute("Sum(人数)","车间 = \'" & cj & "\' And 科室 = \'" & ks & "\'") & "条)"
    End Select
Next
trv.Nodes.Insert("显示所有行","显示所有行(" & dt.Compute("Sum(人数)") & "条)",0)
trv.ResumeRedraw

谢谢BIN及有点甜老师，昨天我的代码其实跟你一样可就是做到按钮里实现这个功能的时间就闪退。

不过我发现有个问题呢，如果将代码放到窗口的加载里通过预览的话就会出去狂闪的错误提示，如果是做到按钮里预览的时候则会闪退

但是如果是直接应用窗口的话则没有以上情况，相关文件及截图已经上传。

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

点击浏览该文件:【已有代码】生成统计筛选树【闪屏错误提示】.rar

谢谢老师，知道原因了，我之前用的删除是DataTables.delete("统计表1"),哎！！！