Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]关于交叉统计


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

主题：[求助]关于交叉统计
帅哥哟，离线，有人找我吗？
blsu33
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		[求助]关于交叉统计  发帖心情 Post By：2018/12/1 17:39:00 [只看该作者]

老师，
   如何 让 交叉统计表，在窗口显示？
Dim bxhz As WinForm.Table = e.Form.Controls("bxhz")
Dim g As New CrossTableBuilder("统计表1", DataTables("pm01021"))
g.HGroups.AddDef("numbers")
g.HGroups.AddDef("submiterid",DateGroupEnum.none)
g.HGroups.AddDef("cheks",DateGroupEnum.none)
g.VGroups.AddDef("doctypename")
g.Totals.AddDef("amount", "amount", True)
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
bxhz.Table.DataSource =g.Build()
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/12/1 17:40:00 [只看该作者]

哦  解决了BuildDataSource()
[此贴子已经被作者于2018/12/1 17:53:36编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/12/1 17:43:00 [只看该作者]

老师，
  Dim g As New CrossTableBuilder("统计表1", DataTables("pm01021"))
g.HGroups.AddDef("numbers")
g.HGroups.AddDef("submiterid")
g.HGroups.AddDef("cheks")
g.VGroups.AddDef("doctypename")
g.Totals.AddDef("amount", "amount", True)
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
g.SubtotalLevel = 1 '只生成总计行
g.Build()
bxhz.Table.DataSource =g.BuildDataSource()
为何 不能按照numbers 进行分组

图片点击可在新窗口打开查看此主题相关图片如下：6da36d55-1424-420c-98b8-eec4e5e5f14a.png
图片点击可在新窗口打开查看




[此贴子已经被作者于2018/12/1 18:48:58编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/2 23:08:00 [只看该作者]

 

你尝试先交叉统计后，再设置一次汇总模式。

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/12/2 23:18:00 [只看该作者]

交叉统计 
g.SubtotalLevel = 1 '只生成总计行

这个设置为0？
[此贴子已经被作者于2018/12/2 23:19:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/2 23:32:00 [只看该作者]

直接再用汇总模式

 

http://www.foxtable.com/webhelp/scr/1372.htm

 

 
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/12/2 23:38:00 [只看该作者]

Dim bxhz As WinForm.Table = e.Form.Controls("bxhz")
Dim g As New CrossTableBuilder("统计表1", DataTables("pm01021"))
g.HGroups.AddDef("numbers")
g.HGroups.AddDef("submiterid")
g.HGroups.AddDef("cheks")
g.VGroups.AddDef("doctypename")
g.Totals.AddDef("amount", "amount", True)
g.OrderByTotal = True
g.HorizontalTotal = True
g.VerticalTotal = True
g.Subtotal = True
bxhz.Table.DataSource =g.BuildDataSource()
Dim t As Table = bxhz.Table
Dim g1 As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = False
t.TreeVisible = False
t.SpillNode = False

g1 = New Subtotalgroup
g1.Aggregate = AggregateEnum.Sum
g1.GroupOn = "numbers"
g1.TotalOn = "doctypename" '这块 怎么写 才好呢，现在显示不存在该列
g1.Caption = "{0} 小计"
t.SubtotalGroups.Add(g1)
t.Subtotal()
 回到顶部
帅哥哟，离线，有人找我吗？
blsu33
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2927 积分：20161 威望：0 精华：0 注册：2012/2/3 17:45:00 		  发帖心情 Post By：2018/12/2 23:48:00 [只看该作者]

楼上 标注颜色的部分 这样写了 可以实现  但还是 不太好用 还有别的简单设置 就可以实现的吗？
For Each c As Col In t.Cols
g1.TotalOn = c.name '
Next
还有 列没有 汇总

图片点击可在新窗口打开查看此主题相关图片如下：6d8019b3-1b4d-44b3-8e1c-28080c17460d.png
图片点击可在新窗口打开查看

[此贴子已经被作者于2018/12/2 23:51:39编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2018/12/3 9:08:00 [只看该作者]

要说多少次？

 

直接再用汇总模式

 

http://www.foxtable.com/webhelp/scr/1372.htm

 
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 4 次数据查询