以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  有复选项的多行数据复制到另一张表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=88978)
--  作者：adidas5241
--  发布时间：2016/8/12 17:27:00
--  有复选项的多行数据复制到另一张表

这里是自动复制行

如果列名不同，或者只需复制部分列，可以参考下面的代码：

If e.DataCol.Name = "逻辑列名" AndAlso e.DataRow("逻辑列名") = True Then
    Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
    Dim nmb() As String = {"B1","B2","B3","B4"} \'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
End If


我的问题是如果表A有选取了多行需要复制到表B的相关列中如何编程？
--  作者：大红袍
--  发布时间：2016/8/12 18:01:00
--  
For Each r As Row In Tables("表A").GetCheckedRows
    Dim nma() As String = {"A1","A2","A3","A4"} \'A表数据来源列
    Dim nmb() As String = {"B1","B2","B3","B4"} \'B表数据接收列
    Dim dr As DataRow = DataTables("表B").AddNew
    For i As Integer = 0 To nma.Length - 1
        dr(nmb(i)) = r(nma(i))
    Next
Next
--  作者：adidas5241
--  发布时间：2016/8/15 11:23:00
--  
谢谢老师指点