以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  排除重复值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=52490)

--  作者:gslxgl
--  发布时间:2014/6/17 8:16:00
--  排除重复值

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多个表的数据提取到农户表,加上什么代码在提取时会排除银行帐号的重复值


--  作者:Bin
--  发布时间:2014/6/17 8:27:00
--  
手工编码填充数据,这样就可以利用FIND找到是否已经存在这个银行账号,存在则不添加


--  作者:gslxgl
--  发布时间:2014/6/17 11:14:00
--  
表太多不知道怎么改啊
--  作者:Bin
--  发布时间:2014/6/17 11:16:00
--  
一个个表写,代码都是大同小异重复的