Foxtable(狐表)用户栏目专家坐堂 → [求助]分组统计数据存在问题(已解决)


  共有3689人关注过本帖树形打印复制链接

主题:[求助]分组统计数据存在问题(已解决)

帅哥哟,离线,有人找我吗?
yyzlxc
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]分组统计数据存在问题(已解决)  发帖心情 Post By: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()

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目.table


[此贴子已经被作者于2014-4-25 19:21:23编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By: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()

 回到顶部
帅哥哟,离线,有人找我吗?
y2287958
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4752 积分:34568 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2014/4/25 18:42:00 [只看该作者]

或者参照这里,尽管代码多了点。


 回到顶部
帅哥哟,离线,有人找我吗?
yyzlxc
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:七尾狐 帖子:1530 积分:10633 威望:0 精华:0 注册:2008/9/24 11:16:00
  发帖心情 Post By:2014/4/25 19:21:00 [只看该作者]

谢谢y2287958老师的回复,还是老师的代码精炼易懂,总算弄明白了,再次谢谢 y2287958老师。

 回到顶部