增加筛选条件即可
Dim b As New SQLGroupTableBuilder("统计表1","学生成绩")
b.Groups.AddDef("科目")
b.Totals.AddDef("分数",AggregateEnum.Max,"最高分")
b.Totals.AddDef("分数",AggregateEnum.Min,"最低分")
b.Totals.AddDef("分数",AggregateEnum.Average,"平均分")
b.Totals.AddExp("分布_60以下","iif(分数 < 60,1,0)")
b.Totals.AddExp("分布_60-70","iif(分数 >= 60 And 分数 < 70,1,0)")
b.Totals.AddExp("分布_70-80","iif(分数 >= 70 And 分数 < 80,1,0)")
b.Totals.AddExp("分布_80-90","iif(分数 >= 80 And 分数 < 90,1,0)")
b.Totals.AddExp("分布_90-100","iif(分数 >= 90 And 分数 < 100,1,0)")
b.Totals.AddExp("分布_100-110","iif(分数 >= 100 And 分数 < 110,1,0)")
b.Totals.AddExp("分布_110-120","iif(分数 >= 110 And 分数 < 120,1,0)")
b.Totals.AddExp("分布_120-130","iif(分数 >= 120 And 分数 < 130,1,0)")
b.Totals.AddExp("分布_130-140","iif(分数 >= 130 And 分数 < 140,1,0)")
b.Totals.AddExp("分布_140以上","iif(分数 >= 140,1,0)")
b.Filter = "科目 in ('数学','英语')"
b.build()
MainTable = Tables("统计表1")
加好友 
发短信
Post By：2017/1/17 23:02:00 [显示全部帖子]
