以下是lsy老师的一段代码,能正常运行。可以把“学籍管理”表中的相关列数据和“课程设置”表中的‘课程’列数据复制到“成绩管理”表中的对应列中。现在还需要把“课程设置”表中的‘课程性质’列的数据也复制到“成绩管理”表的 ‘课程性质’列中。请问以下代码应该如何修改?
DataTables("成绩管理").DataRows.Clear
For Each r As Row In Tables("学籍管理").Rows
Dim fdr As DataRow = DataTables("课程设置").Find("主考院校 = '" & r("主考院校") & "' And 专业 = '" & r("专业") & "'")
If fdr IsNot Nothing Then
Dim vals As List(Of String) = DataTables("课程设置").GetValues("课程","课程 Is Not Null And 主考院校 = '" & r("主考院校") & "' And 专业 = '" & r("专业") & "'")
For Each val As String In vals
Dim nr As Row = Tables("成绩管理").AddNew
For Each c As Col In Tables("学籍管理").Cols
If Tables("成绩管理").Cols.Contains(c.Name) Then
nr(c.Name) = r(c.Name)
End If
Next
nr("课程") = val
Next
End If
Next