Dim g As New CrossTableBuilder("统计表1", DataTables("进销存数据"))
g.HGroups.AddDef("物资编号")
g.VGroups.AddDef("出库", "出库|入库")
g.Totals.AddDef("数量", "数量")
g.HorizontalTotal = True
g.VerticalTotal = True
g.Build()
DataTables("统计表1").DataCols.Add("库存量",Gettype(Integer), Tables("统计表1").Cols(1).name & "-" & Tables("统计表1").Cols(2).name )
MainTable = Tables("统计表1")