以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  求大神,帮着完成分组统计问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=126399)

--  作者:fytea
--  发布时间:2018/10/20 14:11:00
--  求大神,帮着完成分组统计问题

实战分组统计,看了帮助文件不知如何下手,请大神给实例做一下,进一步启发之

谢谢了!!!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目14.table


--  作者:y2287958
--  发布时间:2018/10/20 14:34:00
--  
要统计什么?
--  作者:y2287958
--  发布时间: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

--  作者:fytea
--  发布时间:2018/10/20 15:07:00
--  

九尾狐,y2287958,谢谢了

统计数据结果不在临时统计表中产生,而是将数据填入父表中呢?


--  作者:有点蓝
--  发布时间:2018/10/20 15:11:00
--  
看4楼
--  作者:fytea
--  发布时间:2018/10/20 15:25:00
--  
有点蓝老师,你给的码不启动,处在静默态,重置列,也没效果
--  作者:有点蓝
--  发布时间:2018/10/20 15:27:00
--  
我测试没有问题。重置统计表班号列
--  作者:fytea
--  发布时间:2018/10/20 15:30:00
--  
谢谢,可以了
--  作者:fytea
--  发布时间:2018/10/20 15:34:00
--  

有点蓝老师,能统计后台数据么?