- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]复制表 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=77960)
-- 发布时间：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编辑过]
-- 发布时间：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
-- 发布时间：2015/11/29 14:32:00
--
太感谢了!
RepeatFilter 就是这个！ 重复筛选