Foxtable(狐表) → 用户栏目 → 专家坐堂 → 求代码


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

主题：求代码
帅哥哟，离线，有人找我吗？
nxdx112
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：401 积分：3639 威望：0 精华：0 注册：2016/11/12 18:42:00 		求代码  发帖心情 Post By：2019/4/30 16:39:00 [只看该作者]

均分代码  发帖心情 Post By：2019/4/30 16:16:00 [只看该作者] 

          dr("平均分") = dt.Compute("Avg("  & dr("科目") & ")", filter)
            dr("及格人数") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 and " & filter)
            dr("不及格人数") = dt.Compute("Count(姓名)", dr("科目") & " < 60 and " & filter)
            dr("考试人数") = dt.Compute("Count(姓名)", dr("科目") & " >= 0 and " & filter)
            dr("优秀率") = dt.Compute("Count(姓名)", dr("科目") & " >= 85") / dt.Compute("Count(姓名)")
            dr("及格率") = dt.Compute("Count(姓名)", dr("科目") & " >= 60") / dt.Compute("Count(姓名)")

问题：如何根据上面的写均分值的代码？
均分值=均分乘以70％+及格率乘以20+优秀率乘以10
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

 

dr("均分值") = dr("平均分") * 0.7 + dr("及格率") * 20 + dr("优秀率") *10

 

 

 

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


加好友 发短信
等级：一尾狐 帖子：401 积分：3639 威望：0 精华：0 注册：2016/11/12 18:42:00 		  发帖心情 Post By：2019/4/30 17:29:00 [只看该作者]

不同班级的不同科目也是这样的吗？

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


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

以下是引用nxdx112在2019/4/30 17:29:00的发言：
不同班级的不同科目也是这样的吗？

 

不同班级的条件，你在filter那里设置了啊

 

Dim filter = "班级='aabbcc'"
 回到顶部
帅哥哟，离线，有人找我吗？
nxdx112
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：401 积分：3639 威望：0 精华：0 注册：2016/11/12 18:42:00 		按班计算及格率与优秀率  发帖心情 Post By：2019/5/5 14:24:00 [只看该作者]

DataColChanged   代码


Dim dr As DataRow = e.DataRow
Dim dt As DataTable =DataTables("学生成绩")
Select Case e.DataCol.name
    Case "名称", "年级", "班级", "科目"   
        If dr.IsNull("名称") = False AndAlso dr.IsNull("年级") = False AndAlso dr.IsNull("班级") = False AndAlso dr.IsNull("科目") = False Then
            Dim filter As String = "名称= '" & dr("名称") & "' and 年级 = '" & dr("年级") & "' and 班级 = '" & dr("班级") & "'"
            dr("最高分") = dt.Compute("Max("  & dr("科目") & ")", filter)
            dr("最低分") = dt.Compute("Min("  & dr("科目") & ")", filter)
            dr("平均分") = dt.Compute("Avg("  & dr("科目") & ")", filter)
            dr("成绩分布_0分") = dt.Compute("Count(姓名)", dr("科目") & " = 0 and  " & filter)
            dr("成绩分布_0至9分") = dt.Compute("Count(姓名)", dr("科目") & " > 0 And " & dr("科目") & " < 10 and " & filter)
            dr("成绩分布_10至19分") = dt.Compute("Count(姓名)", dr("科目") & " >= 10 And " & dr("科目") & " < 20 and " & filter)
            dr("成绩分布_20至29分") = dt.Compute("Count(姓名)", dr("科目") & " >= 20 And " & dr("科目") & " < 30 and " & filter)
            dr("成绩分布_30至39分") = dt.Compute("Count(姓名)", dr("科目") & " >= 30 And " & dr("科目") & " < 40 and " & filter)
            dr("成绩分布_40至49分") = dt.Compute("Count(姓名)", dr("科目") & " >= 40 And " & dr("科目") & " < 50 and " & filter)
            dr("成绩分布_50至59分") = dt.Compute("Count(姓名)", dr("科目") & " >= 50 And " & dr("科目") & " < 60 and " & filter)            
            dr("成绩分布_60至69分") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 And " & dr("科目") & " < 70 and " & filter)
            dr("成绩分布_70至79分") = dt.Compute("Count(姓名)", dr("科目") & " >= 70 And " & dr("科目") & " < 80 and " & filter)
            dr("成绩分布_80至89分") = dt.Compute("Count(姓名)", dr("科目") & " >= 80 And " & dr("科目") & " < 90 and " & filter)           
            dr("成绩分布_90至99分") = dt.Compute("Count(姓名)", dr("科目") & " >= 90 And " & dr("科目") & " < 100 and " & filter)
            dr("成绩分布_100分") = dt.Compute("Count(姓名)", dr("科目") & " = 100 and " & filter)
            dr("成绩分布_100至119分") = dt.Compute("Count(姓名)", dr("科目") & " > 100 And " & dr("科目") & " < 120 and " & filter)
            dr("成绩分布_120分") = dt.Compute("Count(姓名)", dr("科目") & " = 120 and " & filter)
            dr("及格人数") = dt.Compute("Count(姓名)", dr("科目") & " >= 60 and " & filter)
            dr("不及格人数") = dt.Compute("Count(姓名)", dr("科目") & " < 60 and " & filter)
            dr("考试人数") = dt.Compute("Count(姓名)", dr("科目") & " >= 0 and " & filter)
            dr("均分值") = dr("平均分") * 0.7 + dr("及格率") * 20 + dr("优秀率") *10
           dr("优秀率") = dt.Compute("Count(姓名)", dr("科目") & " >= 85") / dt.Compute("Count(姓名)")
           dr("及格率") = dt.Compute("Count(姓名)", dr("科目") & " >= 60") / dt.Compute("Count(姓名)")
  End If
End Select
计算出来有问题题具体在标色的，不能每个班不同的的及格率与优秀率。如下图这两列的数据一样，不能每个班不同的的及格率与优秀率


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

按钮代码
Dim dt2 As DataTable = DataTables("成绩分布")
dt2.DataRows.Clear() '清除原有数据
Dim dt As DataTable = DataTables("学生成绩")
Dim kms() As String = {"语文","数学","英语","物理","化学","政治","历史","地理","生物"}
For Each ary() As String In dt.GetValues("名称|年级|班级")
    For Each km As String In kms
        Dim ndr As DataRow = dt2.AddNew
       ndr("名称") = ary(0)
        ndr("年级") = ary(1)
        ndr("班级") = ary(2)
        ndr("科目") = km
    Next
Next
Messagebox.Show("统计完毕!")
[此贴子已经被作者于2019/5/5 14:30:37编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


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

比如

 

dr("优秀率") = dt.Compute("Count(姓名)", dr("科目") & " >= 85 and " & filter) / dt.Compute("Count(姓名)", filter)
 回到顶部
帅哥哟，离线，有人找我吗？
nxdx112
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：一尾狐 帖子：401 积分：3639 威望：0 精华：0 注册：2016/11/12 18:42:00 		  发帖心情 Post By：2019/5/5 14:51:00 [只看该作者]

     换了个思路可以了     
          dr("及格率") = dr("及格人数")/dr("考试人数") * 100
           dr("优秀率") = dr("优秀人数")/dr("考试人数") * 100
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04883 秒, 4 次数据查询