- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请教如何生成带统计结果的筛选树呀 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=58290)
-- 发布时间：2014/10/14 23:50:00
-- [求助]请教如何生成带统计结果的筛选树呀
想实现动态生成筛选树，统计出每个生产车间及科室的人员数量，请教如何生成，项目附上，谢谢了！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:如何生成统计筛选树.rar |
-- 发布时间：2014/10/15 8:31:00
--
http://www.foxtable.com/help/topics/2741.htm
-- 发布时间：2014/10/15 9:12:00
--
BIN老师，我对照着上面的做可是我这个跟帮助里的有些不一样，帮助里是按日期，我这个要按科室和班级，我套不进去代码，跪求老师代码。
-- 发布时间：2014/10/15 9:15:00
--
http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=43776&skin=0
-- 发布时间：2014/10/15 18:44:00
--
学着弄了一下午老是出错。。。
-- 发布时间：2014/10/15 19:15:00
--
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
-- 发布时间：2014/10/16 11:41:00
--
谢谢BIN及有点甜老师，昨天我的代码其实跟你一样可就是做到按钮里实现这个功能的时间就闪退。
不过我发现有个问题呢，如果将代码放到窗口的加载里通过预览的话就会出去狂闪的错误提示，如果是做到按钮里预览的时候则会闪退
但是如果是直接应用窗口的话则没有以上情况，相关文件及截图已经上传。
| 下载信息 [文件大小： 下载次数： ] | |
| 点击浏览该文件:【已有代码】生成统计筛选树【闪屏错误提示】.rar |
此主题相关图片如下：错误提示.jpg
-- 发布时间：2014/10/16 11:50:00
--
Dim dt As DataTable
Dim b As New GroupTableBuilder("汇总",DataTables("表A"))
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.StopRedraw
trv.BuildTree(dt, "车间|科室")
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
-- 发布时间：2014/10/16 11:53:00
--
.
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:如何生成统计筛选树.table |
-- 发布时间：2014/10/16 12:11:00
--
谢谢老师，知道原因了，我之前用的删除是DataTables.delete("统计表1"),哎！！！