主题：[讨论] 狐表的保存机制，如何理解，有实例！

我在命令窗口测试下面的代码：

 

dim dqpz As New Filler

dqpz.SourceTable = DataTables("会计凭证查询") '指定数据来源

dqpz.SourceCols = "sszt,pzrqn,pzrqy,pzrqr,pzlx,pzdm,flxh,pzzy,kmdm,jdfx,flje,cjyh,fdzs" '指定数据来源列

dqpz.DataTable = DataTables("会计凭证") '指定数据接收表

dqpz.DataCols = "账套编号,年,月,日,pzlx,凭证编号,flxh,凭证摘要,科目代码,jdfx,flje,制证人,附件张数" '指定数据接收列

dqpz.ExcludeExistValue = true

dqpz.ExcludeNullValue = true

dqpz.Distinct = true

dqpz.Fill() '填充数据

不明白你的意思，反正你的那段代码，只有第一次填充成功，之后执行不会再填充数据，保存后再执行也不会填充了。
当然，每次重新打开项目，执行一次这个代码，就可以再填充一次，然后保存，就会新增23条记录，这是理所当然的。