Foxtable(狐表)用户栏目专家坐堂 → [求助]同一表内如何批量复制筛选出来的行????


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

主题:[求助]同一表内如何批量复制筛选出来的行????

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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
[求助]同一表内如何批量复制筛选出来的行????  发帖心情 Post By:2021/8/20 15:31:00 [显示全部帖子]

[求助]同一表内如何批量复制筛选出来的行????
有一个表A,按条件筛选出了若干行,现在想点击一个按钮将筛选出来的行在表A中再复制一遍,哪位老师指导一下代码怎么写?

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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2021/8/20 15:36:00 [显示全部帖子]

蓝老师,同一个表内也可以吗?我的需求是同一表内复制?

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


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2021/8/20 15:43:00 [显示全部帖子]

For Each dr1 As DataRow In DataTables("表A").Select("[金额] > 100")
    Dim
 dr2 As DataRow = DataTables("表A").AddNew()
    
For Each dc As DataCol in DataTables("表A").DataCols
        dr2(dc.Name) = dr1(dc.name)
    
Next
Next

这样吗?????

 回到顶部