- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 填充剔除重复项 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=91827)
-- 发布时间：2016/10/19 22:06:00
-- 填充剔除重复项
大神，我设置自动填充后，每次新增数据后，又全部加载了一次 ，怎么只加载新增加的呢？例子中，我在“包车”表中加了赵七，汇总表填充后又全部填充了一次，还有就是填充表里面数据之间的空行能去掉吗 ？谢谢！
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:数据自动填充.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
此主题相关图片如下：填充汇总表.jpg-- 发布时间：2016/10/19 22:29:00
--
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() \'填充数据
-- 发布时间：2016/10/20 11:25:00
-- 汇总表自动删除
谢谢大神，如果在“包车”表中删除一行数据，汇总表中也自动删除，应该加哪个代码呢？
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() \'填充数据
-- 发布时间：2016/10/20 11:51:00
--
删除和填充就没有关系了，参考：http://www.foxtable.com/webhelp/scr/0633.htm