以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]怎么合并内部表内容?  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=70967)

--  作者:sxcspring
--  发布时间:2015/7/2 12:18:00
--  [求助]怎么合并内部表内容?

如下图,表A 列1-列4 与表B 单1-单4 的数据结构一样,现选择表A的“上海、深圳”两行,需要将列1-列4的内容合并到表B。(注意:表A“备注”列的内容不需要合并)

该怎么完成呢?

 


图片点击可在新窗口打开查看此主题相关图片如下:1.jpg
图片点击可在新窗口打开查看

--  作者:狐狸爸爸
--  发布时间:2015/7/2 12:42:00
--  

参考:

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

 

With Tables("表A")
    For i as Integer = .TopPosition To .BottomPosition

        Dim dr As Datarow = Tables("表B").AddNew()
         dr("单1") =  .Rows(i)("列1")

         dr("单2") =  .Rows(i)("列2")
         dr("单3") =  .Rows(i)("列3")
    Next
End With