Foxtable(狐表)用户栏目专家坐堂 → 克隆N行数据代码


  共有10210人关注过本帖树形打印复制链接

主题:克隆N行数据代码

帅哥哟,离线,有人找我吗?
youyuweinihao
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
克隆N行数据代码  发帖心情 Post By:2011/8/2 10:44:00 [只看该作者]

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

谢谢


 回到顶部
帅哥哟,离线,有人找我吗?
youyuweinihao
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/8/2 10:47:00 [只看该作者]

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

 回到顶部
帅哥哟,离线,有人找我吗?
youyuweinihao
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/8/2 10:51:00 [只看该作者]

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


 回到顶部
帅哥哟,离线,有人找我吗?
狐狸爸爸
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:管理员 帖子:47448 积分:251054 威望:0 精华:91 注册:2008/6/17 17:14:00
  发帖心情 Post By: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
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:童狐 帖子:219 积分:1890 威望:0 精华:0 注册:2011/6/10 9:12:00
  发帖心情 Post By:2011/8/2 10:59:00 [只看该作者]

谢谢


 回到顶部