- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]分组统计数据存在问题（已解决） (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=49913)
-- 发布时间：2014/4/25 18:10:00
-- [求助]分组统计数据存在问题（已解决）
以下代码交叉表分组统计，统计的分组数据与实际不符，如果将b.Subtotal = True去掉，合计数据正确。原因在哪里？请各位老师指教，谢谢。
Dim b As New CrossTableBuilder("工具分类汇总",DataTables("工具清单"))
b.HGroups.AddDef("使用单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具等级")
b.VGroups.AddDef("工具状态")
b.Totals.AddDef("工具编号", AggregateEnum.Count, "工具编号")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Subtotal = True
b.Build()
MainTable = Tables("工具分类汇总")
Tables("工具分类汇总").AutoSizeCols()
[此贴子已经被作者于2014-4-25 19:21:23编辑过]
-- 发布时间：2014/4/25 18:33:00
--
上次好像已经回复过你
Dim sql As String = "select *,1 as aa from {工具清单}"
Dim b As New CrossTableBuilder("工具分类汇总",sql)
b.HGroups.AddDef("使用单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具等级")
b.VGroups.AddDef("工具状态")
b.Totals.AddDef("aa")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Subtotal = True
b.Build()
MainTable = Tables("工具分类汇总")
Tables("工具分类汇总").AutoSizeCols()
-- 发布时间：2014/4/25 18:42:00
--
或者参照这里，尽管代码多了点。
-- 发布时间：2014/4/25 19:21:00
--
谢谢y2287958老师的回复，还是老师的代码精炼易懂，总算弄明白了，再次谢谢 y2287958老师。