- 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=126399)
-- 发布时间：2018/10/20 14:11:00
-- 求大神，帮着完成分组统计问题
实战分组统计，看了帮助文件不知如何下手，请大神给实例做一下，进一步启发之
谢谢了！！！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目14.table |
-- 发布时间：2018/10/20 14:34:00
--
要统计什么？
-- 发布时间：2018/10/20 14:50:00
--
Dim bm As String = "统计表1"
Dim b As New SQLGroupTableBuilder(bm,"各班级学生健康登记表")
b.Groups.AddDef("班号")
b.Totals.AddExp("学生总数","1")
b.Totals.AddExp("其中_男生","iif(性别=\'男\',1,0)")
b.Totals.AddExp("其中_女生","iif(性别=\'女\',1,0)")
b.Totals.AddExp("体重正常_男生","iif(性别=\'男\' and 体检结论_体重=\'正常\',1,0)")
b.Totals.AddExp("体重正常_女生","iif(性别=\'女\' and 体检结论_体重=\'正常\',1,0)")
b.Totals.AddExp("身体偏重_男生","iif(性别=\'男\' and 体检结论_体重=\'偏重\',1,0)")
b.Totals.AddExp("身体偏重_女生","iif(性别=\'女\' and 体检结论_体重=\'偏重\',1,0)")
b.Totals.AddExp("体重偏轻_男生","iif(性别=\'男\' and 体检结论_体重=\'偏轻\',1,0)")
b.Totals.AddExp("体重偏轻_女生","iif(性别=\'女\' and 体检结论_体重=\'偏轻\',1,0)")
b.Totals.AddExp("视力正常_男生","iif(性别=\'男\' and 体检结论_视力=\'正常\',1,0)")
b.Totals.AddExp("视力正常_女生","iif(性别=\'女\' and 体检结论_视力=\'正常\',1,0)")
b.Filter = "班号 is not null and 学籍辅号 is not null"
b.Build
Tables(bm).AutoSizeCols
MainTable = Tables(bm)
-- 发布时间：2018/10/20 14:53:00
--
统计表datacolchanged
If e.DataCol.Name = "班号"
e.DataRow("学生总数") = DataTables("各班级学生健康登记表").Compute("Count(学籍辅号)","班号=\'" & e.NewValue & "\'")
e.DataRow("其中_男生") = DataTables("各班级学生健康登记表").Compute("Count(学籍辅号)","班号=\'" & e.NewValue & "\' and 性别 = \'男\'")
End If
-- 发布时间：2018/10/20 15:07:00
--
九尾狐，y2287958，谢谢了
统计数据结果不在临时统计表中产生，而是将数据填入父表中呢？
-- 发布时间：2018/10/20 15:11:00
--
看4楼
-- 发布时间：2018/10/20 15:25:00
--
有点蓝老师，你给的码不启动，处在静默态，重置列，也没效果
-- 发布时间：2018/10/20 15:27:00
--
我测试没有问题。重置统计表班号列
-- 发布时间：2018/10/20 15:30:00
--
谢谢，可以了
-- 发布时间：2018/10/20 15:34:00
--
有点蓝老师，能统计后台数据么？