主题：代码优化

For Each r As Row In Tables("成绩管理").Rows

    Dim dr As DataRow = DataTables("成绩导入").Find("注册学号 = '" & r("注册学号") & "' And 姓名 = '" & r("姓名") & "'")

    If dr IsNot Nothing Then

        For Each s As String In "成绩".Split("|")

            r(s) = dr(s)

        Next

    End If

Next

Select Case e.DataCol.Name

    Case "注册学号","成绩","补考","补考2","补考3"

        Dim drs1,drs2 As List(of DataRow)

        drs1 = e.DataTable.Select("注册学号 = '" & e.DataRow("注册学号") & "' And Substring([注册年级],1,4) = '" & Date.Today.Year - 3 & "'")

        drs2 = e.DataTable.Select("注册学号 = '" & e.DataRow("注册学号") & "' 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

End Select