主题：排除重复值

Dim f As New Filler
f.SourceTable = DataTables("粮食直补") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,身份证号,联系电话,承包面积,家庭住址,户口本号,金额,发放时间,农户编号" '指"家庭住址"定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,身份证号,联系电话,承包面积,家庭住址,户口本号,金额,发放时间,编号" '指定数"家庭住址"据接收列
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("退耕还林") '指定数据来源
f.SourceCols = "户主姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("草原发放花名册") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("干部报酬") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("低保") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("良种补贴") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("五保补助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("高龄老人补助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("孤儿补助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("计生事业费") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("救助资金") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("征地补偿") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("农机补贴") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("危房改造") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("医疗救助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("残疾人补助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

f = New Filler
f.SourceTable = DataTables("复退军人补助") '指定数据来源
f.SourceCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据来源列
f.DataTable = DataTables("农户表") '指定数据接收表
f.DataCols = "农户姓名,资金名称,银行帐号,金额,发放时间" '指定数据接收列"户主姓名"
f.ExcludeExistValue = True
f.Fill() '填充数据

 

 

以上代码是将10多个表的数据提取到农户表，加上什么代码在提取时会排除银行帐号的重复值

手工编码填充数据,这样就可以利用FIND找到是否已经存在这个银行账号,存在则不添加

表太多不知道怎么改啊

一个个表写,代码都是大同小异重复的