Dim s As Date = Date.Now() Dim g As New GroupTableBuilder("统计表1", DataTables("表A")) g.Groups.AddDef("第二列") g.Totals.AddDef("第一列", AggregateEnum.Count) g.FromServer = True g.Build() MainTable = Tables("统计表1") MessageBox.Show((Date.Now -s).TotalSeconds)