以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  项目发布  (http://foxtable.com/bbs/list.asp?boardid=5)
----  代码修改  (http://foxtable.com/bbs/dispbbs.asp?boardid=5&id=51170)

--  作者:aygp
--  发布时间:2014/5/21 10:54:00
--  代码修改
以下代码在把其它二个表的相关数据导入到"成绩管理"表时,把"成绩管理"表中原有的数据删除了。我需要在导入新数据时,不删除原有的数据,请问代码如何修改?


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