主题：[求助]交叉表增加小计列（解决了）

测试了一下，这样比较取巧

 

Dim sql As String
sql = "Select 单位, 工具名称, 工具规格, 工具状态, 1 As 计数 FROM {表A} union all select 单位, 工具名称, '小计', 工具状态, 1 As 计数 FROM {表A} "
Dim b As New CrossTableBuilder("汇总",sql)
b.HGroups.AddDef("单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具状态")
b.VGroups.AddDef("工具规格")
b.Totals.AddDef("计数")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()

MainTable = Tables("汇总")
Tables("汇总").AutoSizeCols()

但是2楼这样，合计是错了的。要处理一下

 

Dim sql As String
sql = "Select 单位, 工具名称, 工具规格, 工具状态, 1 As 计数 FROM {表A} union all select 单位, 工具名称, '小计', 工具状态, 1 As 计数 FROM {表A} "
Dim b As New CrossTableBuilder("汇总",sql)
b.HGroups.AddDef("单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具状态")
b.VGroups.AddDef("工具规格")
b.Totals.AddDef("计数")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()

For Each r As Row In Tables("汇总").Rows
    r("合计") = r("合计") / 2
Next

MainTable = Tables("汇总")
Tables("汇总").AutoSizeCols()

谢谢甜老师，问题解决，再次感谢！！

改一下

 

Dim sql As String
sql = "Select 单位, 工具名称, 工具规格, 工具状态, 1 As 计数 FROM {表A} union all select 单位, 工具名称, '小计', 工具状态, 1 As 计数 FROM {表A} "
Dim b As New CrossTableBuilder("汇总",sql)
b.HGroups.AddDef("单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具状态")
b.VGroups.AddDef("工具规格")
b.Totals.AddDef("计数")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Subtotal = True
b.Build()
For i As Integer = 0 To Tables("汇总").Rows.Count(True) - 1
    Dim r As Row = Tables("汇总").Rows(i, True)
    r("合计") = r("合计") / 2
Next
MainTable = Tables("汇总")
Tables("汇总").AutoSizeCols()

又一次得到甜老师的指教，受益匪浅，再次感谢甜老师的热情帮助！！

在原来的基础上再增加一列“工具规格”，按单位进行汇总符合要求，但是如果组合框为空时，汇总时出现分别按单位和工具名称进行分组汇总，如何只保留按单位分组汇总，而去掉按工具名称分组汇总，请各位老师指教，谢谢。

 如下

 

Dim dw As String = e.Form.Controls("ComboBox1").Text
Dim sql As String
If dw <> "" Then
    sql = "Select 单位,工具名称,工具规格,工具等级,工具状态,1 As 计数 FROM {表A} Where 单位 = '" & dw & "' union all select 单位,工具名称,工具规格,'小计',工具状态,1 As 计数 FROM {表A} Where 单位 = '" & dw & "'"
Else
    sql = "Select 单位,工具名称,工具规格,工具等级,工具状态,1 As 计数 FROM {表A} union all select 单位,工具名称,工具规格,'小计',工具状态,1 As 计数 FROM {表A}"
End If
Dim b As New CrossTableBuilder("汇总",sql)
b.HGroups.AddDef("单位")
b.HGroups.AddDef("工具名称")
b.HGroups.AddDef("工具规格")
b.VGroups.AddDef("工具状态")
b.VGroups.AddDef("工具等级")
b.Totals.AddDef("计数")
b.HorizontalTotal = True
b.VerticalTotal = True
If dw = "" Then
    b.Subtotal = True
End If
b.Build()
For i As Integer = 0 To Tables("汇总").Rows.Count(True) - 1
    Dim r As Row = Tables("汇总").Rows(i, True)
    r("合计") = r("合计") / 2
    If r.IsGroup AndAlso r.Level = 1 Then
        Tables("汇总").grid.Rows(Tables("汇总").HeaderRows+r.Index).height = 0
    End If
Next
MainTable = Tables("汇总")
Tables("汇总").AutoSizeCols()

真神了，什么都难不倒甜老师，太谢谢甜老师了，代码不甚理解，还需慢慢消化，学习了，再次感谢甜老师的热心帮助。