以下代码在把其它二个表中的相关数据导入到"成绩管理"表中时，把"成绩管理"表中原有的数据删除了，我要求在导入新数据时不删除"成绩管理"表中原有的数据，请问代码如何修改？
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(0)
nr("免考") = val(1)
Next
End If
Next
加好友 
发短信
Post By：2014/5/21 11:05:00 [只看该作者]
