Dim g As New CrossTableBuilder("统计表1", DataTables("订单"))g.HGroups.AddDef("客户")g.VGroups.AddDef("已付款", "已付款|未付款")g.Totals.AddDef("金额", "金额")g.HorizontalTotal = Trueg.VerticalTotal = Trueg.Build()MainTable = Tables("统计表1")
得到的统计结果是: