以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  成绩统计的问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=79027)
--  作者：liutqj
--  发布时间：2015/12/23 9:31:00
--  成绩统计的问题
姓名 科目 成绩 考试时间
张三 计算机 合格 2013 　
李四 计算机 合格 2014 　
王五 计算机 优秀 2013 　
张三 普通话 不合格 2013 　
张三 普通话 不合格 2014 　
张三 普通话 合格 2015 　
李四 普通话 不合格 2014 　
李四 普通话 合格 2015 　
王五 普通话 不合格 2013 　
王五 普通话 优秀 2014 　
张三 书法 合格 2013 　
李四 书法 不合格 2014 　 1、一个人的某一科在几次考试中只要有“优秀”的，汇总该科为“优秀”；没有优秀，有合格的该科为合格；只有不合格的汇总该科为不合格；
2、三科为优秀的，总成绩为优秀，有一科不合格的，总成绩为不合格，其它为合格
李四 书法 优秀 2015 　
王五 书法 不合格 2013 　
王五 书法 合格 2014 　
生成一个统计报表，格式如下：
姓名 计算机 普通话 书法 总成绩
李四 合格 合格 优秀 合格
王五 优秀 优秀 优秀 优秀
张三 合格 合格 不合格 不合格
--  作者：liutqj
--  发布时间：2015/12/23 9:33:00
--  
见附件
--  作者：大红袍
--  发布时间：2015/12/23 10:08:00
--  

参考

 

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=68546&skin=0

 

 
--  作者：liutqj
--  发布时间：2015/12/23 14:38:00
--  
本人愚钝，对编程也不懂，还希望大侠能直接帮我一下，急！！
--  作者：大红袍
--  发布时间：2015/12/23 15:15:00
--  
3楼的，就是很详细的教程了。直接拷贝代码就能用啊。
--  作者：liutqj
--  发布时间：2015/12/23 15:34:00
--  
第一问都搞清楚了，关键是第二问，如何生存总成绩？
姓名计算机普通话书法总成绩
李四合格合格优秀合格
王五优秀优秀优秀优秀
张三合格合格不合格不合格
--  作者：大红袍
--  发布时间：2015/12/23 15:42:00
--  

循环每一行，判断。

 

Dim ary() As String = {"计算机", "普通话", "书法"}

For each dr As DataRow In DataTables("表A").DataRows
    Dim cj As String = "优秀"
    For Each s As String In ary
        If dr(s) = "不合格" Then
            cj = "不合格"
            Exit For
        End If
        If dr(s) <> "优秀" Then
            cj = "及格"
        End If
    Next
    dr("总成绩") = cj
Next
--  作者：liutqj
--  发布时间：2015/12/23 16:05:00
--  
不好意思，还要麻烦您！
在第一问中，我的成绩不是数据列，也不是将同一个人的数据进行汇总，也是判断：如计算机，三次（或二次，或一次）考试中，当有一次考试为优秀时，该科为优秀，如没有优秀，只要有一次合格，则该科为合格，如没有合格，也没有优秀，则该科为不合格。

不知说清楚了没？
--  作者：liutqj
--  发布时间：2015/12/23 16:07:00
--  
根据上述要求，生成第二个表。
--  作者：大红袍
--  发布时间：2015/12/23 16:08:00
--  
上传项目。