以下是引用有点蓝在2017/5/16 20:44:00的发言：
把代码中
临时统计表的名称改为你永久的统计表名称就行
Dim b As New SQLGroupTableBuilder("统计及格优秀2014","成绩2014")
b.C
b.Groups.AddDef("班级")
b.Totals.AddExp("人数","考号","",AggregateEnum.Count) '统计人数
Dim nms() As String = {"语文","数学","英语","政治","历史","地理","物理","化学","生物"}
For Each nm As String In nms '利用表达式统计及格人数和优秀人数
b.Totals.Addexp(nm & "_及格", " case when " & nm & " >= 60 Then 1 Else 0 End ")
b.Totals.Addexp(nm & "_优秀", " case when " & nm & " >= 90 Then 1 Else 0 End")
Next
b.VerticalTotal = True
b.Build()
For Each nm As String In nms '对生成的统计表增加表达式列,计算及格率和优秀率
DataTables("统计及格优秀2014").DataCols.Add(nm & "_及格率",Gettype(Double), nm & "_及格/人数" )
Tables("统计及格优秀2014").Cols(nm & "_及格率").Move(Tables("统计及格优秀2014").Cols(nm & "_及格").Index + 1)
DataTables("统计及格优秀2014").DataCols.Add(nm & "_优秀率",Gettype(Double), nm & "_优秀/人数" )
Tables("统计及格优秀2014").Cols(nm & "_优秀率").Move(Tables("统计及格优秀2014").Cols(nm & "_优秀").Index + 1)
DataTables("统计及格优秀2014").DataCols(nm & "_及格率").SetFormat("0.00%")
DataTables("统计及格优秀2014").DataCols(nm & "_优秀率").SetFormat("0.00%")
Next
MainTable = Tables("统计及格优秀2014")
蓝版，帮我看一下，怎么改啊，我是小白，不懂啊，谢谢。
加好友 
发短信
Post By：2017/5/16 15:16:00 [显示全部帖子]
高人啊，绝对的大神，感谢版主，谢谢，辛苦您了。