谢谢大神,如果在“包车”表中删除一行数据,汇总表中也自动删除,应该加哪个代码呢?
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() '填充数据