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

此主题相关图片如下：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   '统计表放入指定窗口表

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

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

我马上做例子给您

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目19.table

麻烦老师了

你实现过这个功能么？

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
    int index1 As Integer=Array.indexof(r("分组列"))
    b.HGroups.AddDef("nums1(index1)")'添加列用于水平分组
Next

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

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

b.Build '生成统计表

老师，我这样思路逻辑对了，但是报错：方法参数必须在括号中？

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(nums2,r("分组列"))
    b.HGroups.AddDef(nums1(index))'添加列用于水平分组
Next

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

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

还是sql语句错误，

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

产品_{0}

老师，和您探讨下，这个模式的种类多么？它其实就是多表头的实现，可不可以直接把模式改为多表头，是，就相当于设置了这个 ，否，就么有？