以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  克隆N行数据代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=11548)

--  作者:youyuweinihao
--  发布时间:2011/8/2 10:44:00
--  克隆N行数据代码

克隆属性为A的N行数据的代码怎么写

谢谢


--  作者:youyuweinihao
--  发布时间:2011/8/2 10:47:00
--  
克隆N行数据,并把其中一属性赋值为A
--  作者:youyuweinihao
--  发布时间:2011/8/2 10:51:00
--  

克隆N行属性为A的数据,并把克隆行的其中一属性赋值为B


--  作者:狐狸爸爸
--  发布时间:2011/8/2 10:54:00
--  

克隆选定的多行:

 

With Tables("某表")
        For i As Integer = .TopPosition To .BottomPosition
            Dim r1 As Row = .Rows(i)
            Dim r2 As Row = r1.Clone
            r2("某列") = "AAA"
        Next
End With


--  作者:youyuweinihao
--  发布时间:2011/8/2 10:59:00
--  

谢谢