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

大神，我设置自动填充后，每次新增数据后，又全部加载了一次，怎么只加载新增加的呢？例子中，我在“包车”表中加了赵七，汇总表填充后又全部填充了一次，还有就是填充表里面数据之间的空行能去掉吗？谢谢！

下载信息 [文件大小：下载次数： ]
点击浏览该文件:数据自动填充.zip

Dim f As New Filler

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

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

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

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

f.Fill() '填充数据

Dim f1 As New Filler

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

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

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

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

f1.Fill() '填充数据

f.ExcludeExistValue = True
图片点击可在新窗口打开查看

此主题相关图片如下：填充汇总表.jpg

帮助都有的：http://www.foxtable.com/webhelp/scr/0680.htm

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

谢谢大神，如果在“包车”表中删除一行数据，汇总表中也自动删除，应该加哪个代码呢？

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

删除和填充就没有关系了，参考：http://www.foxtable.com/webhelp/scr/0633.htm

主题：填充剔除重复项