 加好友  发短信
等级：五尾狐
帖子：1034
积分：7402
威望：0
精华：0
注册：2008/8/31 22:52:00
|
关于 filler 的自动填充条件.如何理解?  Post By：2009/1/4 12:34:00 [只看该作者]
我有这样一段代码:
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.Append = False
dqpz.Fill() '填充数据
意思是要将"会计凭证查询"表中的内容填充到"会计凭证"表中.
需要填充的字段是对应好了的.
现在的问题是,这几个条件设置好像没有效果:
dqpz.ExcludeExistValue = true
dqpz.ExcludeNullValue = true
dqpz.Distinct = true
dqpz.Append = False
参数设置的意思是:
排除来源表中重复的行,
也排除目标表中重复的表,
排除空值,
目标表中先在原有行中填充,不够用再新增行.
可是执行的结果是: 不任什么情况下,都直接追加行,不用任何条件判断,追加一次就增加100行,第二次就再加100行,实际上内容完全一样的.
[此贴子已经被作者于2009-1-4 12:34:13编辑过]
|
|
