以文本方式查看主题

-  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
--  

谢谢