主题：代码优化

下面的代码，有三个循环，虽然只有300条记录，但循环的排列组合，就惊人了。

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

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

    If dr IsNot Nothing Then

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

            r(s) = dr(s)

        Next

    End If

Next

 

把例子传上来，让大家试试，有没有变通的方法，提高效率。