提交更改后循环 - 只保存最后一个记录

Question

下面的代码工作，但它只保存循环中的最后一条记录，我找不到原因。我认为Submitchanges()是在正确的地方，在循环结束。有人可以告诉我什么是错的？谢谢。

Sub POPULATE_CHAIN() 

    Dim newChain As New CHAIN 
    Dim dpSTRIKE As Integer 

    'get list of Options Contracts 
    Dim lstOPT = From Z In DATA.OPTIONs, X In DATA.UDLies 
       Where X.UDLY_SYM = Z.UDLY_SYM 
       Select Z.CONTRACT, Z.STRIKE_GAP, X.UDLY_LAST 

    Dim dctOPT = lstOPT.ToDictionary(Function(Z) Z.CONTRACT) 

    For Each key In dctOPT.Keys 

     For COUNT = 1 To 5 
      dpSTRIKE = 1850 + 5 * COUNT 
      Dim lkup = From Z In DATA.CHAINs 
         Select Z 
      Dim RCD_EXISTS As Boolean = lkup.Any(Function(Z) Z.CONTRACT = dctOPT(key).CONTRACT And Z.P_C = "C" And Z.STRIKE = dpSTRIKE) 

      If RCD_EXISTS = False Then 
       newChain.CONTRACT = dctOPT(key).CONTRACT 
       newChain.P_C = "C" 
       newChain.STRIKE = dpSTRIKE 
       DATA.CHAINs.InsertOnSubmit(newChain) 
      Else 
       newChain.CONTRACT = dctOPT(key).CONTRACT 
       newChain.P_C = "C" 
       newChain.STRIKE = dpSTRIKE 
      End If 

     Next 
    Next 
    DATA.SubmitChanges() 
End Sub 

Answer 1

Dim newChain As New CHAIN 

应内部富勒每个，恰好内部秒。 由于它是在循环外部声明的，它将从表中分离并重新附加到表中。所以它只会插入最后一行。