[求助][讨论]两个不同分组（类似分组）的统计能放在一个统计表里吗？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim g As New GroupTableBuilder("单项指标统计表", DataTables("评价结果"))
g.Groups.AddDef("性别")
g.Groups.AddDef("年级编号")
g.Totals.AddDef("年级编号", AggregateEnum.Count, "人数")
g.Totals.AddDef("年级编号", AggregateEnum.Count, "优秀人数")
g.Totals.AddDef("年级编号", AggregateEnum.Count, "良好人数")
g.Totals.AddDef("年级编号", AggregateEnum.Count, "及格人数")
g.Totals.AddDef("年级编号", AggregateEnum.Count, "不及格人数")
g.Totals.AddDef("身高", AggregateEnum.Average, "身高平均数")
g.Decimals = 2
g.Build()
Dim t As Table = Tables("单项指标统计表")
For Each r As Row In t.Rows
    r("优秀人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & r("年级编号") & "' And 性别 = '" & r("性别") & "' And 总分等级 = '" & "优秀" & "'")
    r("良好人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & r("年级编号") & "' And 性别 = '" & r("性别") & "' And 总分等级 = '" & "良好" & "'")
    r("及格人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & r("年级编号") & "' And 性别 = '" & r("性别") & "' And 总分等级 = '" & "及格" & "'")
    r("不及格人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & r("年级编号") & "' And 性别 = '" & r("性别") & "' And 总分等级 = '" & "不及格" & "'")
    If r("性别") = "1" Then
        r("性别") = "男"
    Else
        r("性别") = "女"
    End If
Next
For Each fz As String In DataTables("评价结果").GetValues("年级编号")
    Dim r = t.addnew
    r("年级编号") = fz
    r("人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & fz & "'")
    r("优秀人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & fz & "' And 总分等级 = '" & "优秀" & "'")
    r("良好人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & fz & "' And 总分等级 = '" & "良好" & "'")
    r("及格人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & fz & "' And 总分等级 = '" & "及格" & "'")
    r("不及格人数") = DataTables("评价结果").Compute("count(年级编号)", "年级编号 = '" & fz & "' And 总分等级 = '" & "不及格" & "'")
Next
MainTable = t

主题：[求助][讨论]两个不同分组（类似分组）的统计能放在一个统计表里吗？