- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]交叉表增加小计列（解决了） (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=51512)
-- 发布时间：2014/5/27 22:29:00
-- [求助]交叉表增加小计列（解决了）
-- 发布时间：2014/5/27 22:48:00
--
测试了一下，这样比较取巧
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()
-- 发布时间：2014/5/27 22:51:00
--
但是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()
-- 发布时间：2014/5/27 23:02:00
--
谢谢甜老师，问题解决，再次感谢！！
-- 发布时间：2014/5/28 14:27:00
--
sql = "Select 单位, 工具名称, 工具规格, 工具状态, 1 As 计数 FROM {表A} union all select 单位, 工具名称, \'小计\', 工具状态, 1 As 计数 FROM {表A} "
-- 发布时间：2014/5/28 14:34:00
--
改一下
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()
-- 发布时间：2014/5/28 15:36:00
--
又一次得到甜老师的指教，受益匪浅，再次感谢甜老师的热情帮助！！
-- 发布时间：2014/5/28 19:30:00
--
在原来的基础上再增加一列“工具规格”，按单位进行汇总符合要求，但是如果组合框为空时，汇总时出现分别按单位和工具名称进行分组汇总，如何只保留按单位分组汇总，而去掉按工具名称分组汇总，请各位老师指教，谢谢。
此主题相关图片如下：1a.png
-- 发布时间：2014/5/28 19:39:00
--
如下
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()
-- 发布时间：2014/5/28 19:58:00
--
真神了，什么都难不倒甜老师，太谢谢甜老师了，代码不甚理解，还需慢慢消化，学习了，再次感谢甜老师的热心帮助。