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

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