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