主题：成绩统计的问题

姓名	科目	成绩	考试时间
张三	计算机	合格	2013
李四	计算机	合格	2014
王五	计算机	优秀	2013
张三	普通话	不合格	2013
张三	普通话	不合格	2014
张三	普通话	合格	2015
李四	普通话	不合格	2014
李四	普通话	合格	2015
王五	普通话	不合格	2013
王五	普通话	优秀	2014
张三	书法	合格	2013
李四	书法	不合格	2014		1、一个人的某一科在几次考试中只要有“优秀”的，汇总该科为“优秀”；没有优秀，有合格的该科为合格；只有不合格的汇总该科为不合格； 2、三科为优秀的，总成绩为优秀，有一科不合格的，总成绩为不合格，其它为合格
李四	书法	优秀	2015
王五	书法	不合格	2013
王五	书法	合格	2014
生成一个统计报表，格式如下：
姓名	计算机	普通话	书法	总成绩
李四	合格	合格	优秀	合格
王五	优秀	优秀	优秀	优秀
张三	合格	合格	不合格	不合格

见附件

参考

 

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

 

 

本人愚钝，对编程也不懂，还希望大侠能直接帮我一下，急！！

3楼的，就是很详细的教程了。直接拷贝代码就能用啊。

第一问都搞清楚了，关键是第二问，如何生存总成绩？

循环每一行，判断。

 

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

在第一问中，我的成绩不是数据列，也不是将同一个人的数据进行汇总，也是判断：如计算机，三次（或二次，或一次）考试中，当有一次考试为优秀时，该科为优秀，如没有优秀，只要有一次合格，则该科为合格，如没有合格，也没有优秀，则该科为不合格。

根据上述要求，生成第二个表。

上传项目。