主题：成绩统计的问题

参考

 

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

上传项目。

换ie浏览器，多上传几次

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("姓名", Gettype(String), 32)
Dim ary = DataTables("表A").GetValues("科目")
For Each v As String In ary
    dtb.AddDef(v, Gettype(String))
Next
dtb.AddDef("总成绩", Gettype(String), 32)
dtb.Build()
For Each v As String In DataTables("表A").GetValues("姓名")
    Dim dr1 As DataRow = DataTables("表d").AddNew()
    dr1("姓名") = v
    For Each dr2 As DataRow In DataTables("表A").Select("姓名 = '" & v & "'")
        If dr2("成绩") = "优秀" Then
            dr1(dr2("科目")) = dr2("成绩")
        ElseIf dr2("成绩") = "合格" AndAlso dr1(dr2("科目")) <> "优秀" Then
            dr1(dr2("科目")) = dr2("成绩")
        ElseIf dr1.Isnull(dr2("科目")) Then
            dr1(dr2("科目")) = dr2("成绩")
        End If
    Next
   
    Dim cj As String = "优秀"
    For Each s As String In ary
        If dr1(s) = "不合格" Then
            cj = "不合格"
            Exit For
        End If
        If dr1(s) <> "优秀" Then
            cj = "合格"
        End If
    Next
    dr1("总成绩") = cj
Next
MainTable = Tables("表D")

Dim dtb As New DataTableBuilder("表D")
dtb.AddDef("学校", Gettype(String), 32)
dtb.AddDef("姓名", Gettype(String), 32)
Dim ary = DataTables("表A").GetValues("科目")
For Each v As String In ary
    dtb.AddDef(v, Gettype(String))
Next
dtb.AddDef("总成绩", Gettype(String), 32)
dtb.Build()
For Each v As String() In DataTables("表A").GetValues("学校|姓名")
    Dim dr1 As DataRow = DataTables("表d").AddNew()
    dr1("学校") = v(0)
    dr1("姓名") = v(1)
    For Each dr2 As DataRow In DataTables("表A").Select("学校 = '" & v(0) & "' and 姓名 = '" & v(1) & "'")
        If dr2("成绩") = "优秀" Then
            dr1(dr2("科目")) = dr2("成绩")
        ElseIf dr2("成绩") = "合格" AndAlso dr1(dr2("科目")) <> "优秀" Then
            dr1(dr2("科目")) = dr2("成绩")
        ElseIf dr1.Isnull(dr2("科目")) Then
            dr1(dr2("科目")) = dr2("成绩")
        End If
    Next
   
    Dim cj As String = "优秀"
    For Each s As String In ary
        If dr1(s) = "不合格" Then
            cj = "不合格"
            Exit For
        End If
        If dr1(s) <> "优秀" Then
            cj = "合格"
        End If
    Next
    dr1("总成绩") = cj
Next
MainTable = Tables("表D")