主题：[求助]複製問題

來源行複製到接收行後，來源行自動刪除，代碼如何達成？

If e.DataCol.Name = "第五列" AndAlso e.DataRow("第五列") = True Then
    Dim nma() As String = {"第一列","第二列","第三列","第四列"} 'A表数据来源列
    Dim  nmb()  As  String = {"第一列","第二列","第三列","第四列"} 'B表数据接收列
    Dim  dr  As DataRow = DataTables("表B").AddNew
      For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = e.DataRow(nma(i))
            e.DataRow.Delete
     Next
End  If

 

感恩指點，雖有刪除但接收行只有第一列複製過來，其他三列沒有複製過來有bug不知哪裡錯了？

解決了，謝謝Bin老師。感恩啊！