呃....要额外处理一下,类似代码
DataTables("表A").DataCols.Add("第一列1", Gettype(Double),"第一列")
DataTables("表A").DataCols.Add("第一列2", Gettype(Double),"第一列")
DataTables("表A").DataCols.Add("第一列3", Gettype(Double),"第一列")
Dim g As New CrossTableBuilder("统计表1", DataTables("表A"))
g.HGroups.AddDef("第二列")
g.VGroups.AddDef("第三列")
g.Totals.AddDef("第一列", "累计值")
g.Totals.AddDef("第一列1", AggregateEnum.Average, "平均值")
g.Totals.AddDef("第一列2", AggregateEnum.Max , "最大值")
g.Totals.AddDef("第一列3", AggregateEnum.Min, "最小值")
g.Build()
MainTable = Tables("统计表1")