以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  怎么将一个表的一行通过代码复制到别一个表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=19724)
--  作者：woovoow
--  发布时间：2012/5/19 9:57:00
--  怎么将一个表的一行通过代码复制到别一个表
如题
--  作者：jxkqf
--  发布时间：2012/5/19 17:49:00
--  

看帮助

 
--  作者：13636600695
--  发布时间：2012/5/20 11:33:00
--  
看帮助里的填充
--  作者：布莱克朱
--  发布时间：2012/5/20 14:14:00
--  

\'复制选定行：

With Tables("表A")
    For i As Integer = .BottomRow To .TopRow Step -1
        Dim r1 As Row = .Rows(i)
        Dim r2 As Row = Tables("表B").AddNew
        For Each c As Col In .Cols
            r2(c.name) = r1(c.name)
        Next
        r1.Delete()
    Next
End With

 

\'复制所有行:

With Tables("表A")
    For i As Integer = .Rows.Count -1 To 0 Step -1
        Dim r1 As Row = .Rows(i)
        Dim r2 As Row = Tables("表B").AddNew
        For Each c As Col In .Cols
            r2(c.name) = r1(c.name)
        Next
        r1.Delete
    Next
End With
--  作者：狐狸爸爸
--  发布时间：2012/5/21 8:20:00
--  

参考：


http://www.foxtable.com/help/topics/2292.htm


http://www.foxtable.com/help/topics/1533.htm