Foxtable(狐表)用户栏目专家坐堂 → [求助]我想实现统计各科满足不同条件的人数


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

主题:[求助]我想实现统计各科满足不同条件的人数

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
[求助]我想实现统计各科满足不同条件的人数  发帖心情 Post By:2016/9/29 10:00:00 [显示全部帖子]

我想统计各个班,语文>=100,数学>=115,英语>=102人数怎么实现
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:成绩分析.rar

[此贴子已经被作者于2016/9/29 10:02:57编辑过]

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By:2016/9/29 11:26:00 [显示全部帖子]

Dim b As New SQLGroupTableBuilder("统计表1","名单")
b
.Groups.Adddef("居民组")
b
.Totals.Adddef("姓名",AggregateEnum.Count,"总人数")
b
.Totals.Addexp("已签约","iif(签约期 Is null,0,1)")
b
.Totals.Addexp("未签约","iif(签约期 Is null,1,0)")
b
.Build 
MainTable
 = Tables("统计表1")
这个方法基本能实现,但执行起来很慢几百条数据要3分钟左右

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By:2016/9/29 11:29:00 [显示全部帖子]

Dim b As New SQLGroupTableBuilder("统计表1","原始成绩")
b.Groups.Adddef("班级")
b.Totals.Adddef("班级",AggregateEnum.Count,"总人数")
b.Totals.Addexp("语文","iif(语文 >=90,0,1)")
b.Totals.Addexp("数学","iif(数学 >=105,1,0)")

b.Totals.Addexp("英语","iif(英语>=85,0,1)")
b.Totals.Addexp("物理","iif(物理>=55,1,0)")

b.Totals.Addexp("化学","iif(化学 >=55,0,1)")
b.Totals.Addexp("生物","iif(生物>=48,1,0)")
b.Build 
MainTable = Tables("统计表1")
这是我的代码

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By:2016/9/29 11:36:00 [显示全部帖子]

但同样的数据我却要3分钟是什么原因?

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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By:2016/9/29 11:48:00 [显示全部帖子]

我只有这一段代码,是foxtable版本不一样?


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


加好友 发短信
等级:幼狐 帖子:174 积分:1582 威望:0 精华:0 注册:2016/9/28 11:48:00
  发帖心情 Post By:2016/10/2 20:11:00 [显示全部帖子]

我将代码放在了DataColChanged事件里面相当慢但放在命令窗口,或窗体控件里面就相当快了

 回到顶部