Rss & SiteMap
Foxtable(狐表) http://www.foxtable.com
光说没用,实例来了!
项目文件开发者密码:888
项目文件中的会计凭证查询表 就是上面说的A表(被做到内部表里来了,没办法不能远程)
会计计凭证表 就是上面说的B表。
看一下窗口按键里面的代码,点击试一下!
A表中的23条记录被加到数据库 预算管理.mdb 里面,点击一次加一次,但实际上这些记录是重复的。
就是这一段代码:
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() '填充数据
DataTables("会计凭证总表").load
DataTables("会计凭证").load
我希望只填充不同的记录!
请求解决之道!
下载信息 [文件大小: 下载次数: ] | |
点击浏览该文件:桌面.rar |
自己顶一下,没有人试过上传的附件吗?
我在命令窗口测试下面的代码:
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() '填充数据
我的实例中没有 Select All * From [会计凭证] Where 账套编号 = 11 and 年 = 2008 啊!
我的会计凭证查询表中只有2009年的数据。
同时,也请老六在代码的后面加上:
DataTables("会计凭证总表").load
DataTables("会计凭证").load
主要问题是不是在这里?
请用ACCESS打开数据库看看里面的情况,不要只看狐表中的表单。
我不明白是这是LOAD有问题?
我在命令窗口测试下面的代码:
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() '填充数据
请保存以后,再用ACCESS打开数据库看看里面的情况。
我看到是的46、69、92等等,越搞越多!
是的啊!
但是一保存,就重复了!