以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]将表A的所有记录追加到表B相同字段中  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30457)
--  作者：yanxin04
--  发布时间：2013/3/28 9:45:00
--  [求助]将表A的所有记录追加到表B相同字段中
想将表A的所有记录追加到表B相同字段中，代码如何编写。
--  作者：狐狸爸爸
--  发布时间：2013/3/28 10:00:00
--  

呵呵，木华代码有个小问题，应该：

 

For Each r As Row In Tables("表A").Rows

    Dim rb As Row = Tables("表B").AddNew()
    For Each c As Col In Tables("表A").Cols        
        rb(c.Name) = r(c.Name)
    Next
Next
--  作者：yanxin04
--  发布时间：2013/3/28 10:09:00
--  
谢谢两位帮助