代码修放 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

以上代码是从多表中提取数据的，用以下代码

Dim Vals As List(of String())
Vals = DataTables("来源表").GetUniqueValues("","产品","客户")
For i As Integer = 0 To Vals.Count - 1
    Dim dr As DataRow = DataTables("接收表").AddNew()
    dr("产品") = Vals(i)(0)
    dr("客户") = Vals(i)(1)
Next

可以从当前表中的一列排除重复值，我想的是如果粮食直补中有的银行帐号，从退耕还林表中不提取，如果没有再提取，以下类推，代码该怎修改

主题：代码修放