Dim g As New CrossTableBuilder("品种钢种规格统计", DataTables("兵工厂仓库入库明细")) Dim t3 As Table = Tables("兵工厂入库品种钢种规格统计_Table1") g.hGroups.AddDef("品种") g.hGroups.AddDef("钢种") g.hGroups.AddDef("规格") g.Totals.AddDef("重量") g.Totals.AddDef("重量审核") g.Decimals = 3 g.Build() t3.DataSource = g.BuildDataSource