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秒