专家坐堂-代码修改问题Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下代码在把其它二个表中的相关数据导入到"成绩管理"表中时，把"成绩管理"表中原有的数据删除了，我要求在导入新数据时不删除"成绩管理"表中原有的数据，请问代码如何修改？

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

nr("课程") = val(0)

nr("免考") = val(1)

End If