老师，你好，

以下的代码可以将记录复制到表ConfirmList，但复制后去不能把test 和test1表中相应的记录删除，麻烦一下，谢谢。

Dim Cols1() As String = {"FBrNo","FSupID","FItemID","FUnitID","FStartQty","FEndQty","FPrice","FCyID","FDiscount","FLeadTime","FQuoteTime","FUsed","FDisableDate","FRemark","FPType","FLastModifiedDate","FLastModifiedBy","FPrioritized"}   \'来源

Dim Cols2() As String = {"FBrNo","FSupID","FItemID","FUnitID","FStartQty","FEndQty","FPrice","FCyID","FDiscount","FLeadTime","FQuoteTime","FUsed","FDisableDate","FRemark","FPType","FLastModifiedDate","FLastModifiedBy","Priority"}   \'接收

For Each dr1 As DataRow In DataTables("Pricelist").Select("[FNeg] = true ")

If DataTables("test").find("ID=\'" & dr1("ID") & "\'") Is Nothing Then

    Dim dr2 As DataRow = DataTables("ConfirmList").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
        dr2("FEntryID") = ""
        dr2("FLastModifiedDate") = Nothing
    dr2("FUsed") = False

        Next
DataTables("test").DeleteFor("ID=\'" & dr1("ID") & "\'")

End If
Next

For Each dra1 As DataRow In DataTables("Pricelist").Select("[FNeg] = true ")
    If DataTables("test1").find("ID2=\'" & dra1("ID2") & "\'") Is Nothing Then
       If DataTables("ConfirmList").find("ID2=\'" & dra1("ID2") & "\'") Is Nothing Then      
       
       DataTables("ConfirmList").replacefor("FCurrencyID",dra1("FCurrencyID"),"ID2=\'" & dra1("ID2") & "\'")
      End If

DataTables("test1").DeleteFor("ID2=\'" & dra1("ID2") & "\'")
    End If
Next