Foxtable(狐表)用户栏目专家坐堂 → 一个简单的统计问题,把我搞晕了


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

主题:一个简单的统计问题,把我搞晕了

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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
一个简单的统计问题,把我搞晕了  发帖心情 Post By:2012/4/5 13:57:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

如图:我有一表要分组统计,要打到如下效果:

 


 


图片点击可在新窗口打开查看此主题相关图片如下:2.jpg
图片点击可在新窗口打开查看

 

但是因为有相同的姓名,怎么统计人数都多出来,这个分组统计该怎么写?


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


加好友 发短信
等级:管理员 帖子:47497 积分:251403 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By:2012/4/5 14:02:00 [只看该作者]

这个用菜单也行,用代码也行:

 

Dim g As New GroupTableBuilder("统计表1", DataTables("表A"))
g.Groups.AddDef("车间")
g.Totals.AddDef("姓名", AggregateEnum.Count, "人数")
g.Totals.AddDef("夜班补贴")
g.Build()
MainTable = Tables("统计表1")


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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/4/5 17:35:00 [只看该作者]

狐狸爸爸,你的代码我试过了,统计结果不对,如图; 我又认真阅读了帮助文件关于分组统计的文档,还是不行,大家可以试试,问题出在哪?

 


图片点击可在新窗口打开查看此主题相关图片如下:3.jpg
图片点击可在新窗口打开查看

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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/4/5 22:10:00 [只看该作者]

看来是FOXTABLE软件BUG,把人数统计,变成了人次统计.

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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/4/5 22:11:00 [只看该作者]

有没有别的替代办法解决?

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


加好友 发短信
等级:小狐 帖子:308 积分:3351 威望:0 精华:0 注册:2011/12/22 17:52:00
  发帖心情 Post By:2012/4/5 22:28:00 [只看该作者]

顶一下,不知如何加入代码,去除重复的姓名。


 回到顶部
帅哥,在线噢!
y2287958
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/4/6 5:36:00 [只看该作者]

最笨的方法是:
Dim g As New GroupTableBuilder("aa", DataTables("表A"))
g.Groups.AddDef("第一列")
g.Groups.AddDef("第二列")
g.Totals.AddDef("第二列",AggregateEnum.Count)
g.Totals.AddDef("第三列")
g.Build()
Dim g1 As New GroupTableBuilder("统计表3", DataTables("aa"))
g1.Groups.AddDef("第一列")
g1.Totals.AddDef("第二列", AggregateEnum.Count)
g1.Totals.AddDef("第三列")
g1.Build()
MainTable = Tables("aa")
Syscmd.Table.Delete()
MainTable = Tables("统计表3")
MainTable = Tables("统计表3")

 回到顶部
帅哥,在线噢!
y2287958
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:狐神 帖子:4759 积分:34603 威望:0 精华:0 注册:2008/8/31 22:44:00
  发帖心情 Post By:2012/4/6 5:41:00 [只看该作者]

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



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


加好友 发短信
等级:幼狐 帖子:146 积分:1205 威望:0 精华:0 注册:2012/3/12 11:17:00
  发帖心情 Post By:2012/4/6 9:24:00 [只看该作者]

收藏起来


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


加好友 发短信
等级:九尾狐 帖子:2193 积分:13908 威望:0 精华:2 注册:2012/2/25 10:59:00
  发帖心情 Post By:2012/4/6 17:37:00 [只看该作者]

太妙了,这样也可以!

 回到顶部