Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]复制表


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

主题：[求助]复制表
帅哥哟，离线，有人找我吗？
xiaoyu0699
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：340 威望：0 精华：0 注册：2014/12/2 12:42:00 		[求助]复制表  发帖心情 Post By：2015/11/29 13:47:00 [只看该作者]

描述:  制作一个按钮 要复制一张表中需要的数据列到另一张表中   
要求:  去重复值复制内容

比如  源表  

         日期                 数量           编号
2014-12-29 0:00:00 15 XSHT033189
2014-12-29 0:00:00 15 XSHT033191
2014-12-29 0:00:00 10 XSHT033192
2014-12-29 0:00:00 1 XSHT033193
2014-12-29 0:00:00 2 XSHT033194
2014-12-29 0:00:00 2 XSHT033197
2014-12-29 0:00:00 2 XSHT033197
2014-12-30 0:00:00 13 XSHT033217
2014-12-31 0:00:00 10 XSHT033226
2014-12-31 0:00:00 7 XSHT033232
2014-12-31 0:00:00 7 XSHT033232
2014-12-31 0:00:00 7 XSHT033232
2014-04-23 0:00:00 22 XSHT034365

其中 编号 XSHT033197 和 XSHT033232 有重复 

接收表 结果为

         日期                 数量           编号
2014-12-29 0:00:00 15 XSHT033189
2014-12-29 0:00:00 15 XSHT033191
2014-12-29 0:00:00 10 XSHT033192
2014-12-29 0:00:00 1 XSHT033193
2014-12-29 0:00:00 2 XSHT033194
2014-12-29 0:00:00 2 XSHT033197
2014-12-30 0:00:00 13 XSHT033217
2014-12-31 0:00:00 10 XSHT033226
2014-12-31 0:00:00 7 XSHT033232
2014-04-23 0:00:00 22 XSHT034365

其中 编号 XSHT033197 和 XSHT033232 去掉重复 


要实现这个功能按钮  代码怎么写!  图片点击可在新窗口打开查看谢谢!

[此贴子已经被作者于2015/11/29 13:48:55编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
大红袍
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00 		  发帖心情 Post By：2015/11/29 13:58:00 [只看该作者]

Tables("表A").RepeatFilter("第一列", 1)
Dim Cols1() As String = {"来源列一","来源列二","来源列三"}
Dim Cols2() As String = {"接收列一","接收列二","接收列三"}
For Each dr1 As Row In Tables("表A").rows
    Dim dr2 As DataRow = DataTables("表B").AddNew()
    For i As Integer = 0 To Cols1.Length -1
        dr2(Cols2(i)) = dr1(Cols1(i))
    Next
Next
 回到顶部
帅哥哟，离线，有人找我吗？
xiaoyu0699
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：20 积分：340 威望：0 精华：0 注册：2014/12/2 12:42:00 		  发帖心情 Post By：2015/11/29 14:32:00 [只看该作者]

太感谢了!

RepeatFilter　　就是这个！　重复筛选
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03125 秒, 4 次数据查询