主题：交叉统计的精简版的实现

加入判断，类似

For Each r As Row In Tables("统计3").Rows
    If r("统计类型") = "记录数"
        b.Totals.AddDef(r("统计列"),AggregateEnum.count) '添加列用于统计
    ElseIf r("统计类型") = "累积值"
        b.Totals.AddDef(r("统计列"),AggregateEnum.sum) '添加列用于统计
    End If
Next