[求助]两表合并筛选，填充问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

各位老师晚上好！！

我有两个表“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() '填充数据

谢谢两位老师，我的项目文件呈上：

数据来源为：GMYS、GMYX两个表的“HZXM”，由于“HZXM”中的值是随时变动的，所以，我想设计一个初始化按钮，可以将接收表“河长辖河流统计表（HZXHLTJB）”中的河长姓名列（HZXM）根据两个基础数据表“GMYS、GMYX”中的"HZXM"按“乡镇名称（XZMC）”筛选，排出重复值后，自动填入。谢谢老师们！！！

[此贴子已经被作者于2018/8/31 23:21:31编辑过]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目1_201809011020.zip

项目文件呈上，请大师们帮忙。

[此贴子已经被作者于2018/9/1 10:22:22编辑过]

非常感谢“有点蓝”老师！！

主题：[求助]两表合并筛选，填充问题