Dim g As New CrossTableBuilder("统计表2", DataTables("订单"))g.HGroups.AddDef("产品")g.HGroups.AddDef("雇员")g.VGroups.AddDef("客户")g.Totals.AddDef("数量", "数量")g.Subtotal = True
Tables("窗口2_table1").DataSource = g.BuildDataSource