主题：reachtone兄，你经历正好说明Foxtable不仅是高效的，更是容易的，物有所值的。

Dim Start As Date = Date.Now()
Dim b As New CrossTableBuilder("统计表1",DataTables("成绩表"))
b.HGroups.AddDef("姓名")
b.VGroups.AddDef("班级")
b.Totals.AddDef("语文")
b.Totals.AddDef("数学")
b.Totals.AddDef("英语")
b.Totals.AddDef("体育")
b.Build
Maintable = Tables("统计表1")
Output.Show((Date.now-Start).TotalSeconds)
试试机器：31秒