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

 这样。

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() '填充数据

 或者用查询表来做吧。

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