主题：代码优化

谢谢甜老师！测试通过，要是执行速度再快一点就更好了，或者插入一个进度条。

哦，这样会快一些。进度条，你看这里 http://www.foxtable.com/help/topics/0793.htm

 

 

For Each xh As String In DataTables("成绩管理").GetValues("注册学号")
    Dim drs1, drs2 As List(of DataRow)
    drs1 = DataTables("成绩管理").Select("注册学号 = '" & xh & "' And Substring([注册年级],1,4) = '" & Date.Today.Year - 3 & "'")
    drs2 = DataTables("成绩管理").Select("注册学号 = '" & xh & "' And 最终成绩 = '及格' And Substring([注册年级],1,4) = '" & Date.Today.Year - 3 & "'")
    If drs1.Count > 0 Then
        If drs1.Count > drs2.Count
            For i As Integer = 0 To drs1.Count - 1
                If drs1(i)("最终成绩") = "不及格" Then
                    drs1(i)("毕业成绩") = "成绩不合格"
                    Exit For
                End If
            Next
        Else
            drs1(0)("毕业成绩") = "成绩合格"
        End If
    End If
Next

甜老师：执行速度还是很慢，这样处理一下，把代码中对毕业生的判断取消，我先把毕业生筛选出来，代码只对筛选出来学生成绩继续判断，这样执行速度可能要快一些，请试一下。

 帮你优化了一下，变成这样。

 

Dim drs As List(Of DataRow) = DataTables("成绩管理").Select("注册年级 = '" & Date.Today.Year - 3 & "'", "注册学号,最终成绩")
Dim pdr As DataRow = drs(0)
Dim result As String = "及格"
For i As Integer = 1 To drs.count - 1
    If pdr("注册学号") <> drs(i)("注册学号") Then
        pdr("毕业成绩") = result
        result = "及格"
        pdr = drs(i)
    End If
    If drs(i)("最终成绩") = "不及格" Then
        result = "成绩不及格"
    End If
Next

If  pdr("注册学号") = drs(drs.Count-1)("注册学号") Then
    pdr("毕业成绩") = result
End If

瞬间完成。执行速度提高了N个数量级。代码的学问太大了。谢谢甜老师！

甜老师：发现一个问题，第一个学生其中有一门课程‘不及格’，但在“毕业成绩”列中判断为‘及格’  ，第二个以后的学生判断都正确，请修改一下代码。

 这样改

 

Dim drs As List(Of DataRow) = DataTables("成绩管理").Select("注册年级 = '" & Date.Today.Year - 3 & "'", "注册学号,最终成绩")
Dim pdr As DataRow = drs(0)
Dim result As String = "及格"
If pdr("最终成绩") = "不及格" Then
    result = "成绩不及格"
Else
    result = "及格"
End If

For i As Integer = 1 To drs.count - 1
    If pdr("注册学号") <> drs(i)("注册学号") Then
        pdr("毕业成绩") = result
        result = "及格"
        pdr = drs(i)
    End If
    If drs(i)("最终成绩") = "不及格" Then
        result = "成绩不及格"
    End If
Next

If  pdr("注册学号") = drs(drs.Count-1)("注册学号") Then
    pdr("毕业成绩") = result
End If

谢谢甜老师！