以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  如何快速把表A指定列a1的1~50行复制到表B的指定列b1里面？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=35236)
--  作者：comnets
--  发布时间：2013/6/27 9:07:00
--  如何快速把表A指定列a1的1~50行复制到表B的指定列b1里面？
如何快速把表A指定列a1的1~50行复制到表B的指定列b1里面？（a1和b1的列属性是一样的）
--  作者：Bin
--  发布时间：2013/6/27 9:09:00
--  
循环赋值,没什么难度的啊.

要是新增合并的,也可以用合并表啊.
--  作者：狐狸爸爸
--  发布时间：2013/6/27 9:17:00
--  

复制到现有行：

 

for i as as integer = 0 to 49

    tables("表B").Rows(i)(b1"") = Tables("表A").Rows(i)("a1")

next

 

复制到新增行：

 

for i as as integer = 0 to 49

    Dm r AS datarow = DataTables("表B").Addnew()

    r1(b1"") = Tables("表A").Rows(i)("a1")

next
--  作者：comnets
--  发布时间：2013/6/27 9:33:00
--  
图片点击可在新窗口打开查看图片点击可在新窗口打开查看图片点击可在新窗口打开查看谢狐爸！！！
--  作者：lsy
--  发布时间：2013/6/27 9:38:00
--  

不管行号是否对应上，都管用。

For i As Integer = 0 To 49   

    For j As Integer = 10 To 59

        If j - 10 = i Then
            Tables("表B").Rows(j)("第一列") = Tables("表A").Rows(i)("第一列")
        End If
    Next
Next