主题：代码优化

 datacolchanged事件影响的。

SystemReady = False
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
SystemReady = True