Dim g As New CrossTableBuilder("统计表1", DataTables("合同")) g.HGroups.AddDef("品号") g.VGroups.AddDef("年", "{0}年") g.VGroups.AddDef("月", "{0}月") g.Totals.AddDef("数量", "数量") g.FromServer = True
g.Filter = "年 Is Not Null And 月 Is Not Null" g.Build() MainTable = Tables("统计表1")