主题：关于统计攻关阶段 请求帮助

参考代码，看懂，自行扩充。

Dim dtb As New DataTableBuilder("表E")
dtb.AddDef("班级", Gettype(String), 4)
dtb.AddDef("科目", Gettype(String), 10)
dtb.AddDef("及格人数", Gettype(Double))
dtb.AddDef("最大值", Gettype(Double))
dtb.Build()
Dim kms() As String = {"语文","数学","英语","政治","历史"}
Dim dt As DataTable = DataTables("表E")
Dim t As Table = Tables("表A")
For Each bj As String In t.DataTable.GetValues("班级")
    For Each km As String In kms
        Dim ndr As DataRow = dt.AddNew
        ndr("班级") = bj
        ndr("科目") = km
        ndr("及格人数") = t.Compute("count(班级)", km & "_分数 >= 60 and 班级 = '" & bj & "'")
        ndr("最大值") = t.Compute("max(" & km & "_分数)", "班级 = '" & bj & "'")
    Next
Next
MainTable = Tables("表E")