Dim b As New SQLCrossTableBuilder("统计表1","订单")b.HGroups.AddDef("日期")
b.VGroups.AddDef("姓名") b.Totals.AddDef("姓名", AggregateEnum.Count) '添加数量列用于统计b.Build '生成统计表MainTable = Tables("统计表1") '打开生成的统计表