各位老师晚上好！！我有两个表“GMYS”和“GMYX”，两个表中均有“HZXM”、“XZMC”列，现在需要将两个表中“HZXM”列中的值合并筛选，不重复。将筛选的结果填充到表“HZTJB”中的“河长姓名”，同时筛选条件以“XZMC”进行筛选，即：前两个表的“XZMC＝”“HZTJB”的“乡镇名称”。
我相用代码如下，但不知如何融合，请大师帮忙：（代码需在菜单中的标准按钮用到）
DataTables("HZXHLTJB").DeleteFor("")'删除所有行
Dim f1 As New Filler
f1.SourceTable = DataTables("GMYS") '指定数据来源
f1.SourceCols = "XJHZXM" '指定数据来源列
f1.DataTable = DataTables("HZXHLTJB") '指定数据接收表
f1.DataCols = "HZXM" '指定数据接收列
f1.ExcludeExistValue=True '逻辑型,设为True,排除接收表中已经存在的内容.
f1.ExcludeNullValue=True '逻辑型,设为True,排除空白值.
f1.Distinct=True '逻辑型,是否排除重复内容,默认为True;如果设为False,将不会排除重复内容,也不会排除已有内容和空白值.
Dim f2 As New Filler
f2.SourceTable = DataTables("GMYX") '指定数据来源
f2.SourceCols = "XJHZXM" '指定数据来源列
f2.DataTable = DataTables("HZXHLTJB") '指定数据接收表
f2.DataCols = "HZXM" '指定数据接收列
f2.ExcludeExistValue=True '逻辑型,设为True,排除接收表中已经存在的内容.
f2.ExcludeNullValue=True '逻辑型,设为True,排除空白值.
f2.Distinct=True '逻辑型,是否排除重复内容,默认为True;如果设为False,将不会排除重复内容,也不会排除已有内容和空白值.
（把f2的值附给f1,排除重复项）
'f1.Fill() '填充数据
加好友 
发短信
Post By：2018/8/31 22:10:00 [只看该作者]
