以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]複製問題  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=44453)
--  作者：JoyGum
--  发布时间：2013/12/31 15:47:00
--  [求助]複製問題
來源行複製到接收行後，來源行自動刪除，代碼如何達成？
--  作者：Bin
--  发布时间：2013/12/31 15:51:00
--  
你采取的是什么复制方式?  执行的 delete  方法即可啊
--  作者：JoyGum
--  发布时间：2013/12/31 17:00:00
--  
以下是引用Bin在2013-12-31 15:51:00的发言：
你采取的是什么复制方式?  执行的 delete  方法即可啊

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
--  发布时间：2013/12/31 17:01:00
--  
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))
            
     Next
    e.DataRow.Delete \'放到循环外面
End  If
--  作者：JoyGum
--  发布时间：2013/12/31 17:11:00
--  
解決了，謝謝Bin老師。感恩啊！