以文本方式查看主题

-  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=95329)

--  作者:刘林
--  发布时间:2017/1/16 21:35:00
--  汇总统计问题
班表中有年级,类别,参考数,按年级排序后在每个年级的最下面统计出该年级的A类人数,B类人数,私立人数,以及年级总人数,初次涉及汇总统计,懂不起,请老师指点
--  作者:有点蓝
--  发布时间:2017/1/16 21:53:00
--  
参考:http://www.foxtable.com/webhelp/scr/1964.htm
--  作者:刘林
--  发布时间:2017/1/16 22:09:00
--  

图片点击可在新窗口打开查看此主题相关图片如下:qq图片20170116214526.png
图片点击可在新窗口打开查看

老师,我是想在1-9年级,每年级最后统计,因为第个年级还有类别:A类,B类,私立,想用三行分别统计A类参考人数,B类参人数,私立参考人数,年级合计参考数数,A类班数,B类班数,私立班数

--  作者:有点蓝
--  发布时间:2017/1/16 22:22:00
--  
参考2楼方法,按年纪汇总后手工compute统计类别个数
--  作者:刘林
--  发布时间:2017/1/16 22:28:00
--  
求个示范


--  作者:有点蓝
--  发布时间:2017/1/16 22:52:00
--  
2楼本身就是例子,不会就上传项目
--  作者:刘林
--  发布时间:2017/1/16 23:15:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目2_201701162307.zip
班表里,需要做个按考试名称,分类别、年级分别计算出参考人数,参考班数,各科平均,各科优生率,及格率,显示在每一个年级组的下面按四行

A类    班数    人数   语文平均    数学平均    
B类    .............................................
私立   ............................................
X年级 ............................................
确实不懂,请老师指点后再研究研究,谢谢

--  作者:有点色
--  发布时间:2017/1/17 9:40:00
--  

参考代码

 

Dim t As Table = Tables("小生表")
Dim g As SubtotalGroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = True

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "类别"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "年级"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

g = New SubtotalGroup
g.Aggregate = AggregateEnum.Average
g.GroupOn = "考试名称"
g.TotalOn = "语文,数学,英语,政治,历史,物理,化学,生物,地理,思品,科学,综合,总分"
g.Caption = "{0} 平均"
t.SubtotalGroups.Add(g)

t.Subtotal()


--  作者:刘林
--  发布时间:2017/1/17 11:59:00
--  
老师,上面代码加上去没任何结果呢


--  作者:刘林
--  发布时间:2017/1/17 12:00:00
--  
跟没加代码一样,也没提示错误