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


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

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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 9:11:00 [显示全部帖子]

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

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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 9:52:00 [显示全部帖子]

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

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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：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语句错误
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 10:52: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 convert(int,年级)<7 and 语文>=85 then 1 when convert(int,年级)>=7 and 语文>=80 then 1 else 0 end", AggregateEnum.Count)
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),"语文_优数 / 参考数")

因为年级字段是string,我又改了下，g.FromServer = True也去了，结果还一样，
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 11:21:00 [显示全部帖子]

小生表是外部数据源

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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 11:59:00 [显示全部帖子]

哦，学习了，谢谢

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


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 12:16:00 [显示全部帖子]

DataTables("师表").loadfilter = ""
DataTables("师表").load
Dim g As New sqlGroupTableBuilder("统计表1","小生表")
Dim dt1 As Table = Tables("期末_table6")
g.C
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 convert(int,年级)<7 and 语文>=85 then 1 when convert(int,年级)>=7 and 语文>=80 then 1 else 0 end", AggregateEnum.Count)
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

老师还有一个问题,上面代码的语文_优数,与参考数一样呢，语文_优秀率都等于1呢
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 13:27:00 [显示全部帖子]

DataTables("师表").loadfilter = ""
DataTables("师表").load
Dim g As New sqlGroupTableBuilder("统计表1","小生表")
Dim dt1 As Table = Tables("期末_table6")
g.C
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 convert(int,年级)<7 and 语文>=85 then 1 when convert(int,年级)>=7 and 语文>=80 then 1 else 0 end")
g.Totals.AddExp("数学_优数", "case when convert(int,年级)<7 and 数学>=85 then 1 when convert(int,年级)>=7 and 数学>=80 then 1 else 0 end")
g.Totals.AddExp("英语_优数", "case when convert(int,年级)>=7 and 英语>=80 then 1 else 0 end")
g.Totals.AddExp("政治_优数", "case when convert(int,年级)>=7 and 政治>=80 then 1 else 0 end")
g.Totals.AddExp("历史_优数", "case when convert(int,年级)>=7 and 历史>=80 then 1 else 0 end")
g.Totals.AddExp("生物_优数", "case when convert(int,年级)>=7 and 生物>=80 then 1 else 0 end")
g.Totals.AddExp("地理_优数", "case when convert(int,年级)>=7 and 地理>=80 then 1 else 0 end")
g.Totals.AddExp("物理_优数", "case when convert(int,年级)>=8 and 物理>=80 then 1 else 0 end")
g.Totals.AddExp("化学_优数", "case when convert(int,年级)>=9 and 化学>=80 then 1 else 0 end")
g.Totals.AddExp("语文_及数", "case when 语文>=60 then 1 else 0 end")
g.Totals.AddExp("数学_及数", "case when 数学>=60 then 1 else 0 end")
g.Totals.AddExp("英语_及数", "case when 英语>=60 then 1 else 0 end")
g.Totals.AddExp("政治_及数", "case when 政治>=60 then 1 else 0 end")
g.Totals.AddExp("历史_及数", "case when 历史>=60 then 1 else 0 end")
g.Totals.AddExp("生物_及数", "case when 生物>=60 then 1 else 0 end")
g.Totals.AddExp("地理_及数", "case when 地理>=60 then 1 else 0 end")
g.Totals.AddExp("物理_及数", "case when 物理>=60 then 1 else 0 end")
g.Totals.AddExp("化学_及数", "case when 化学>=60 then 1 else 0 end")
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),"语文_优数 / 参考数")
dt1.DataTable.DataCols.Add("数学_优秀率",Gettype(Double),"数学_优数 / 参考数")
dt1.DataTable.DataCols.Add("英语_优秀率",Gettype(Double),"英语_优数 / 参考数")
dt1.DataTable.DataCols.Add("政治_优秀率",Gettype(Double),"政治_优数 / 参考数")
dt1.DataTable.DataCols.Add("历史_优秀率",Gettype(Double),"历史_优数 / 参考数")
dt1.DataTable.DataCols.Add("生物_优秀率",Gettype(Double),"生物_优数 / 参考数")
dt1.DataTable.DataCols.Add("地理_优秀率",Gettype(Double),"地理_优数 / 参考数")
dt1.DataTable.DataCols.Add("物理_优秀率",Gettype(Double),"物理_优数 / 参考数")
dt1.DataTable.DataCols.Add("化学_优秀率",Gettype(Double),"化学_优数 / 参考数")
dt1.DataTable.DataCols.Add("语文_及格率",Gettype(Double),"语文_及数 / 参考数")
dt1.DataTable.DataCols.Add("数学_及格率",Gettype(Double),"数学_及数 / 参考数")
dt1.DataTable.DataCols.Add("英语_及格率",Gettype(Double),"英语_及数 / 参考数")
dt1.DataTable.DataCols.Add("政治_及格率",Gettype(Double),"政治_及数 / 参考数")
dt1.DataTable.DataCols.Add("历史_及格率",Gettype(Double),"历史_及数 / 参考数")
dt1.DataTable.DataCols.Add("生物_及格率",Gettype(Double),"生物_及数 / 参考数")
dt1.DataTable.DataCols.Add("地理_及格率",Gettype(Double),"地理_及数 / 参考数")
dt1.DataTable.DataCols.Add("物理_及格率",Gettype(Double),"物理_及数 / 参考数")
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
老师，再请教一个问题，上面代码有会把小学习1-6的年级英语，物理，化学优秀率，和及格率统计为0,而小学没有英语物理化学成绩,这样统计出数据不好看得，但所有学生成绩都在小生表中，我想在统计表中，对不考的科目不统计期及格率和优秀率怎么改
 回到顶部
帅哥哟，离线，有人找我吗？
刘林
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：八尾狐 帖子：1942 积分：14925 威望：0 精华：0 注册：2016/4/28 9:58:00 		  发帖心情 Post By：2017/1/13 17:43:00 [显示全部帖子]

老师这也有个问题，是地理_及数他有可能本来就为0，我是想把某年级不考的科目统计不计算，一则效率最高，二则统一不考不算更好看

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