主题：如何提取两个表中的组合唯一值出来？（上传了例子）

各位老师，

 

有两个表，表1和表2，每个表中都有部门及角色两列，想要分别提取两个表中部门及角色的组合唯一值（即不重复的值）

 

合在一起成为另外一个表，代码要怎么写？

 

 

谢谢！

 

怎么都不提供例子呢？

很多方法的，采用哪种方法，得看具体的情况，所以最好做个简单的例子发上来，具体说明需要。

 

 

如例子中，要将表a和表b的所有部门及角色合并在一起，然后去除掉“部门”及“角色”组合起来重复的值得到表c

 

主要是想用两个表中所有的部门及角色去掉重复值来生成目录树，不知道组合唯一要如何去重复。

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:多表合并去重复.table

 

谢谢大家。

 这样。

Dim f As New Filler
f.SourceTable = DataTables("表A") '指定数据来源
f.SourceCols = "部门,角色" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "第一列,第二列" '指定数据接收列
f.ExcludeNullValue = True
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("表B") '指定数据来源
f.SourceCols = "部门,角色" '指定数据来源列
f.DataTable = DataTables("表C") '指定数据接收表
f.DataCols = "第一列,第二列" '指定数据接收列
f.ExcludeNullValue = True
f.ExcludeExistValue = True
f.Fill() '填充数据

谢谢林老师，如果直接用SQL语句要怎么写？

 或者用查询表来做吧。

select 部门, 角色 from {表A} where 部门 is not null
union select 部门, 角色 from {表B} where 部门 is not null

这个好，原来用UNion可以自动排除重复值。再次感谢！