Foxtable(狐表) → 用户栏目 → 专家坐堂 → 分组统计优秀率


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

主题：分组统计优秀率
帅哥哟，离线，有人找我吗？
刘林
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1938 积分：14865 威望：0 精华：0 注册：2016/4/28 9:58:00 		分组统计优秀率  发帖心情 Post By：2017/1/13 8:28:00 [只看该作者]

Dim g As New GroupTableBuilder("统计表1", DataTables("小生表"))
Dim dt1 As Table = Tables("期末_table6")
DataTables("师表").loadfilter = ""
DataTables("师表").load
g.Groups.AddDef("考试名称")
g.Groups.AddDef("学校")
g.Groups.AddDef("年级")
g.Groups.AddDef("类别")
g.Groups.AddDef("学校班级")
g.Totals.AddDef("姓名",AggregateEnum.Count,"参考数")
g.Totals.AddDef("语文",AggregateEnum.Average,"语文_人平")
g.Totals.AddDef("数学",AggregateEnum.Average,"数学_人平")
g.Totals.AddDef("英语",AggregateEnum.Average,"英语_人平")
g.Totals.AddDef("政治",AggregateEnum.Average,"政治_人平")
g.Totals.AddDef("历史",AggregateEnum.Average,"历史_人平")
g.Totals.AddDef("物理",AggregateEnum.Average,"物理_人平")
g.Totals.AddDef("化学",AggregateEnum.Average,"化学_人平")
g.Totals.AddDef("生物",AggregateEnum.Average,"生物_人平")
g.Totals.AddDef("地理",AggregateEnum.Average,"地理_人平")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分_人平")
g.FromServer = True
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("班级排名",Gettype(Integer))
dt1.DataTable.DataCols.Add("语文_教师",Gettype(String))
dt1.DataTable.DataCols.Add("数学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("英语_教师",Gettype(String))
dt1.DataTable.DataCols.Add("政治_教师",Gettype(String))
dt1.DataTable.DataCols.Add("历史_教师",Gettype(String))
dt1.DataTable.DataCols.Add("物理_教师",Gettype(String))
dt1.DataTable.DataCols.Add("化学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("生物_教师",Gettype(String))
dt1.DataTable.DataCols.Add("地理_教师",Gettype(String))
Dim ds As DataRow
For Each r As Row In Tables("期末_table6").Rows
    ds = DataTables("师表").Find("考试名称 = '" & r("考试名称") & "'and 学校班级 = '" & r("学校班级") & "'" )
    If ds IsNot Nothing
        r("语文_教师")= ds("语文教师")
        r("数学_教师")= ds("数学教师")
        r("英语_教师")= ds("英语教师")
        r("政治_教师")= ds("政治教师")
        r("历史_教师")= ds("历史教师")
        r("物理_教师")= ds("物理教师")
        r("化学_教师")= ds("化学教师")
        r("生物_教师")= ds("生物教师")
        r("地理_教师")= ds("地理教师")
        
    End If
Next

老师，请问我想增加个各科优秀率统计怎么加？如：语文优秀率,数学优秀率,当年级<7时85分为优秀，当年级>=7时80分为优秀
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107230 积分：545405 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/13 9:03:00 [只看该作者]

1、使用表达式列，类似

g.Totals.AddExp("语文优秀率","iif(年级<7 and 语文 > 85,'优秀','')")

2、增加临时列，手工计算
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1938 积分：14865 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 9:11:00 [只看该作者]

请帮写个手工计算的例子,不是计算优秀，是在"期末_table6"中增加临时列来分组统计小生表中某个班的语文优秀率，请指教哪种方式效率最高，小生表中有几万条记录

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


加好友 发短信
等级：超级版主 帖子：107230 积分：545405 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2017/1/13 9:17:00 [只看该作者]

手工计算：http://www.foxtable.com/webhelp/scr/0681.htm


至于效率，没有办法一概而论那种最高，根据你的逻辑，数据结构和数据实地测试过才知道
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/13 9:18:00 [只看该作者]

 

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/13 9:28:00 [只看该作者]

增加列

 

dt1.DataTable.DataCols.Add("语文_优秀率",Gettype(String))

 

赋值

 

Dim yx As Integer = DataTables("小生表").Compute("count(语文)", "考试名称 = '" & r("考试名称") & "' and 年级 = '" & r("年级") & "' and 类别 = '" & r("类别") & "' and 年级班级 = '" & r("年级班级") & "' and 语文 >= " & iif(r("年级")>7,80,85))

Dim zrs As Integer = DataTables("小生表").Compute("count(语文)", "考试名称 = '" & r("考试名称") & "' and 年级 = '" & r("年级") & "' and 类别 = '" & r("类别") & "' and 年级班级 = '" & r("年级班级") & "'")

r("语文_优秀率") =  yx / zrs

[此贴子已经被作者于2017/1/13 9:28:57编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1938 积分：14865 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 9:52:00 [只看该作者]

老师，上面代码有个实际问题，小生表记录太多不能全部加载，如果用sqlcompute,又很慢，只有看用2楼第一种办法,麻烦你再帮我写个第一个种方法人示例，谢谢

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


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/13 10:19:00 [只看该作者]

那你就用sqlGroupTableBuilder来统计。然后用表达式计算

 

g.Totals.AddExp("语文_优秀", "case when 年级<7 and 语文>=85 then 1 when 年级>=7 and 语文>=80 then 1 else 0 end")

g.Totals.AddDef("语文_总人数", AggregateEnum.Count)

 

生成表后加入表达式列

 

dt1.DataTable.DataCols.Add("语文_优秀率",Gettype(double),"语文_优秀 / 语文_总人数")

 

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

 

 

[此贴子已经被作者于2017/1/13 12:33:42编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1938 积分：14865 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 10:42:00 [只看该作者]

Dim g As New sqlGroupTableBuilder("统计表1", "小生表")
Dim dt1 As Table = Tables("期末_table6")
DataTables("师表").loadfilter = ""
DataTables("师表").load

g.Groups.AddDef("考试名称")
g.Groups.AddDef("学校")
g.Groups.AddDef("年级")
g.Groups.AddDef("类别")
g.Groups.AddDef("学校班级")
g.Totals.AddDef("姓名",AggregateEnum.Count,"参考数")
g.Totals.AddDef("语文",AggregateEnum.Average,"语文_人平")
g.Totals.AddDef("数学",AggregateEnum.Average,"数学_人平")
g.Totals.AddDef("英语",AggregateEnum.Average,"英语_人平")
g.Totals.AddDef("政治",AggregateEnum.Average,"政治_人平")
g.Totals.AddDef("历史",AggregateEnum.Average,"历史_人平")
g.Totals.AddDef("物理",AggregateEnum.Average,"物理_人平")
g.Totals.AddDef("化学",AggregateEnum.Average,"化学_人平")
g.Totals.AddDef("生物",AggregateEnum.Average,"生物_人平")
g.Totals.AddDef("地理",AggregateEnum.Average,"地理_人平")
g.Totals.AddDef("总分",AggregateEnum.Average,"总分_人平")
g.Totals.AddExp("语文_优数", "case when 年级<7 and 语文>=85 then 1 when 年级>=7 and 语文>=80 then 1 else 0 end", AggregateEnum.Count)
g.FromServer = True
dt1.DataSource = g.BuildDataSource()
dt1.DataTable.DataCols.Add("班级排名",Gettype(Integer))
dt1.DataTable.DataCols.Add("语文_教师",Gettype(String))
dt1.DataTable.DataCols.Add("数学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("英语_教师",Gettype(String))
dt1.DataTable.DataCols.Add("政治_教师",Gettype(String))
dt1.DataTable.DataCols.Add("历史_教师",Gettype(String))
dt1.DataTable.DataCols.Add("物理_教师",Gettype(String))
dt1.DataTable.DataCols.Add("化学_教师",Gettype(String))
dt1.DataTable.DataCols.Add("生物_教师",Gettype(String))
dt1.DataTable.DataCols.Add("地理_教师",Gettype(String))
dt1.DataTable.DataCols.Add("语文_优秀率",Gettype(Double),"语文_优数 / 参考数")
 

Dim ds As DataRow
For Each r As Row In Tables("期末_table6").Rows
    ds = DataTables("师表").Find("考试名称 = '" & r("考试名称") & "'and 学校班级 = '" & r("学校班级") & "'" )    
    If ds IsNot Nothing
        r("语文_教师")= ds("语文教师")
        r("数学_教师")= ds("数学教师")
        r("英语_教师")= ds("英语教师")
        r("政治_教师")= ds("政治教师")
        r("历史_教师")= ds("历史教师")
        r("物理_教师")= ds("物理教师")
        r("化学_教师")= ds("化学教师")
        r("生物_教师")= ds("生物教师")
        r("地理_教师")= ds("地理教师")
    End If
Next

老师，我修改了下，出现错误生成的sql语句错误
 回到顶部
帅哥哟，离线，有人找我吗？
有点色
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：13837 积分：69650 威望：0 精华：0 注册：2016/11/1 14:42:00 		  发帖心情 Post By：2017/1/13 10:45:00 [只看该作者]

这句去掉 g.FromServer = True
 回到顶部
总数 23 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05566 秒, 4 次数据查询