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

此主题相关图片如下：1.png

 

 

代码：

Dim b As New SQLCrossTableBuilder("统计表1","person")
For Each r As Row In Tables("统计1").Rows
    b.HGroups.AddDef(r("分组列")) '添加列用于水平分组
Next

For Each r As Row In Tables("统计2").Rows
    b.VGroups.AddDef(r("分组列")) '添加列用于水平分组
Next

For Each r As Row In Tables("统计3").Rows
    b.Totals.AddDef(r("统计列")) '添加列用于统计
Next

If e.Form.Controls("CheckBox1").Select = True Then   '水平方向生成汇总
    b.HorizontalTotal = True
End If

If e.Form.Controls("CheckBox2").Select = True Then   '垂直方向生成汇总
    b.VerticalTotal = True
End If

b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表
Tables("统计_Table1").DataSource= b.BuildDataSource   '统计表放入指定窗口表

 

 

 

老师，我觉的我上面代码的逻辑是正确的，不知为啥报错？请老师指点一下