表A到表B直接交叉统计就可以了吧。
将表A分数列改成数值型,代码。
Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))g.HGroups.AddDef("姓名")g.VGroups.AddDef("分类")g.VGroups.AddDef("阶段")g.VGroups.AddDef("课程")g.Totals.AddDef("分数", "分数")g.Build()MainTable = Tables("统计表1")
可能我理会错了,楼主要的不是交叉统计。