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

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

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()