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

Dim f As New Filler

f.SourceTable = DataTables("包车") '指定数据来源

f.SourceCols = "车牌号,司机,时间" '指定数据来源列

f.DataTable = DataTables("汇总表") '指定数据接收表

f.DataCols = "车牌号,司机,时间" '指定数据接收列

f.ExcludeNullValue = True

f.ExcludeExistValue = True

f.Fill() '填充数据

Dim f1 As New Filler

f1.SourceTable = DataTables("小轿车") '指定数据来源

f1.SourceCols = "车牌号,司机,时间" '指定数据来源列

f1.DataTable = DataTables("汇总表") '指定数据接收表

f1.DataCols = "车牌号,司机,时间" '指定数据接收列

f1.ExcludeNullValue = True

f1.ExcludeExistValue = True

f1.Fill() '填充数据

主题：填充剔除重复项