Foxtable(狐表)用户栏目专家坐堂 → [求助]交叉表增加小计(已解决)


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

主题:[求助]交叉表增加小计(已解决)

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


加好友 发短信
等级:七尾狐 帖子:1525 积分:10580 威望:0 精华:0 注册:2008/9/24 11:16:00
[求助]交叉表增加小计(已解决)  发帖心情 Post By:2014/4/22 11:27:00 [只看该作者]

以下代码是生成交叉表,能否以此为基础,增加使用单位的小计行,请各位老师指教,谢谢!

Dim sql As String
sql = "Select 使用单位,工具编号,工具名称,工具等级,工具状态  FROM {工具清单}"
'根据临时表生成分类汇总表
Dim b As New CrossTableBuilder("工具分类汇总",sql)
b.HGroups.AddDef("使用单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具等级")
b.VGroups.AddDef("工具状态")
b.Totals.AddDef("工具编号", AggregateEnum.Count, "工具编号")
b.HorizontalTotal = True
b.VerticalTotal = True
b.Build()
MainTable = Tables("工具分类汇总")
Tables("工具分类汇总").AutoSizeCols()

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


[此贴子已经被作者于2014-4-22 11:37:57编辑过]

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


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

试试:b.VerticalTotal = True

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


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

Dim sql As String
sql = "Select *,1 as 统计 FROM {工具清单}"
'根据临时表生成分类汇总表
Dim b As New CrossTableBuilder("工具分类汇总",sql)
b.HGroups.AddDef("使用单位")
b.HGroups.AddDef("工具名称")
b.VGroups.AddDef("工具等级")
b.VGroups.AddDef("工具状态")
b.Totals.AddDef("统计", AggregateEnum.Sum)
b.HorizontalTotal = True
b.VerticalTotal = True
b.Subtotal = True
b.Build()
MainTable = Tables("工具分类汇总")
Tables("工具分类汇总").AutoSizeCols()

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


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

谢谢y2287958老师,问题解决,再次感谢。

 回到顶部