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

1、把下面的删除，报什么错？

b.Build '生成统计表
MainTable = Tables("统计表1") '打开生成的统计表

2、做个例子发上来测试。

是不是你列名不匹配，你数据库里面的列名不是英文来的么？你现在改成中文了明显不对。

1、

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
    If r("统计类型") = "记录数"
        b.Totals.AddDef(r("统计列"),AggregateEnum.count) '添加列用于统计
    ElseIf r("统计类型") = "累积值"
        b.Totals.AddDef(r("统计列"),AggregateEnum.sum) '添加列用于统计
    End If
Next

b.Build '生成统计表

2、是不是你列名不匹配，你数据库里面的列名不是英文来的么？你现在改成中文了明显不对。

Dim nums1() As String={"sex","age","birth", _
"edu","workdate","politicalStatus", _
"retiredPost","title","leaOrRetire", _
"retireTime","proTecPost","partyTime", _
"organName","partyStanding","retiredDep"}
Dim nums2()  As String={"性别","年龄","出生年月", _
"学历","参加工作日期","政治面貌", _
"离退休职务","享受待遇","状态", _
"离退休时间","专业技术职务","入党时间", _
"单位","党龄","部门"}

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

For Each r As Row In Tables("统计2").Rows
    Dim index As Integer=Array.indexof(nums1,r("分组列"))
    b.VGroups.AddDef(nums1(index)) '添加列用于垂直分组
Next

For Each r As Row In Tables("统计3").Rows
    Dim index As Integer=Array.indexof(nums1,r("统计列"))
    b.Totals.AddDef(nums1(index), AggregateEnum.Count) '添加列用于统计
Next

b.Build '生成统计表

加上代码

b.ConnectionName = "Sale"

加入判断，类似

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