Dim g As New GroupTableBuilder("统计表1", DataTables("输入"))
g.Groups.AddDef("长")
g.Groups.AddDef("长类型")
g.Groups.AddDef("宽")
g.Groups.AddDef("宽类型")
g.Totals.AddDef("数量")
g.Build()
DataTables("统计表1").DataCols.Add("编号",GetType(Integer))
For i as integer = 0 to DataTables("统计表1").DataRows.Count -1
DataTables("统计表1").DataRows(i)("编号") = i + 1
Next