找不到别名qd1

cd731107 2011-08-03 02:38:27
环境:vfp6+xp下面有一个窗体的load event,代码如下(这部分没问题):

set near on

if !used('zdr')
use zdr in 0
endif
** 以 JXC 库产生一个临时销售数据库 **
thisform.ls_mx = 'Q'+RIGHT(SUBSTR(SYS(2015), 3, 10),7)
if used('jxc')
sele jxc
else
sele 0
use jxc
endif
copy stru to (thisform.ls_mx)
sele 0
use (thisform.ls_mx) alias qd excl
inde on wybz tag wybz

ls_sp='Q'+right(SUBSTR(SYS(2015), 3, 10),7)
SELE * FROM SPDM INTO dbf (ls_sp) GROUP BY WYBZ
sele qd
appe from (ls_sp)
use in (ls_sp)
eras &ls_sp..dbf

thisform.ls_mx1 = 'Q'+RIGHT(SUBSTR(SYS(2015), 3, 10),7)
copy stru to (thisform.ls_mx1)
sele 0
use (thisform.ls_mx1) excl alias qd1 again
inde on wybz tag wybz addi
set filt to rkje#0
** END **

** 连接数据库 **
SELE JXC
SET ORDER TO WYBZ_D IN JXC

if !used('spdl')
use spdl in 0
endif
set order to dm in spdl

SELE SPDM
set order to spxh
go top
SET RELA TO WYBZ INTO JXC
SET RELA TO WYBZ INTO qd addi
SET RELA TO spdl INTO spdl addi




然后在一个货品上输入金额,点击确定(click),执行代码如下:

set near off
use in qd1
sele qd
dele all for rkje=0

*看这里,执行下的pack时会出错,具体提示看最后面的图

pack
go top
if eof()
=messagebox('无入库数据!',0+48+0,'系统提示')
else
if thisform.opgHSORWS.value=1 && 调整金额含税(RKJE字段为含税金额,需折算成不含税金额和税额)
repl all se with rkje
repl all rkje with round(rkje/(1+_system(2)),sys_je_dec)
repl all se with se-rkje
else && 调整金额不含税(RKJE字段为不含税金额,算税额)
repl all se with round(rkje*_system(2),sys_je_dec)
endif
do rktzgl && 处理入库数据及打印清单
endif

thisform.release


下面是错误的截图,请大大帮忙
...全文
254 24 打赏 收藏 转发到动态 举报
写回复
用AI写文章
24 条回复
切换为时间正序
请发表友善的回复…
发表回复
wwwwb 2011-08-05
  • 打赏
  • 举报
回复
建议楼主精简一下程序,可以重现错误即可,重新上传
十豆三 2011-08-05
  • 打赏
  • 举报
回复
豆子:用你的程序没有模拟出你现象
cd731107 2011-08-05
  • 打赏
  • 举报
回复
虽然不知道为什么货品调整金额的那一列输入了数字后,再点击退出时,
当执行clos data all时,只有别名表qd1被关闭了,而别名表qd未被关闭,
但采购的十豆三的方法:把问题表单的 Destroy 事件代码改写到 Unload 事件中,
就没这种情况了,感谢大家的帮忙,尤其是十豆三兄弟、半路出家和其他几位兄弟,
另外前面忘说了,利用半路出家的方法重新连编了,但没有效果。
就此结贴,另外再发帖感谢,请十豆三兄弟进来拿分
十豆三 2011-08-05
  • 打赏
  • 举报
回复
qd 和 qd1 实际是一个表,copy 来 copy 去的,这代码写的是挺乱的。

把问题表单的 Destroy 事件代码改写到 Unload 事件中。
然后把 Grid(grdspdm)中每5列(Column5)的 Text1 的 Valid 事件中的
Sele qd1
代码前加:
If !Used('qd1')
Use (Thisform.ls_mx1) Exclusive Alias qd1 In 0 Again
Endif

十豆三 2011-08-05
  • 打赏
  • 举报
回复
我21的建议同样也针对其他表单。

其实还有一个比较懒得方法,如果类似的问题很多,建议彻底解决,即对每个表单查看用到了哪些表(打开了哪些表),然后按照我21楼的优化。
如果类似的问题不多,用如下方法也可以

就是把所有的
Select 具体表名

前加代码
If !Used('具体表名')
Use 具体表名 In 0
Endif

十豆三 2011-08-05
  • 打赏
  • 举报
回复
把表单 Destroy 事件中的
clos data all
去掉(或注释掉)
这个表单用到了哪些表就在表单的 Load 事件打开,如:
Use 表1 In 0
Use 表2 In 0
...

在此表单中使用时直接
Select 表1
... 具体操作代码

Select 表2
... 具体操作代码

等到退出这个表单时,再将打开的这些表关闭,这个写到表单的 Unload 事件中
Select 表1
Use
Select 表2
Use
...
cd731107 2011-08-05
  • 打赏
  • 举报
回复
非常感谢大家的帮忙,现在问题有一点方向了:
如果进入窗体后直接退出时,执行clos data all 后,别名表qd和qd1都会被直接关闭;
但如果在某个货品调整金额的那一列输入了数字后,再点击退出时,
当执行clos data all时,只有别名表qd1被关闭了,而别名表qd未被关闭,
再继续执行后面的TEXT1的vaild 事件时,select qd 没问题,而select qd1会发生错误。

所以,目前的问题是:clos data all 执行后,为什么只关闭了别名表qd1,而未关闭别名表qd?
而且从前面表单load事件中来看,这两个别名表都是独占excl打开的,看不出有什么不同啊?

肯定还会另外开贴加分感谢大家的,小弟对vfp不是很了解,肯请大家的继续帮忙,谢谢!
jack_wang0823 2011-08-05
  • 打赏
  • 举报
回复
帮你看过了 出错的代码不在 确认按钮的 click 时间代码里 , 而是在 表格1grdspdm.调整金额一行TEXT1的vaild 事件中。 代码本身也没有问题。 追踪时 显示源不可用。 可能是VFP 检查机制造成的代码重新编译置后。
解决办法
选择的项目 编译 重新连编项目后可以正常执行

需要注意的是,1 如果源代码的目录被更换过, 一般要选择重新连编项目
2 在程序调整期间, 不要使用自定义的错误处理模块, 最好使用系统本身的错误处理。 这样在出错的时候, 可以选择挂起, 让程序暂停执行, 然后差看出错代码所处的模块。 检查当时的数据环境, 有利于排错!
-晴天 2011-08-04
  • 打赏
  • 举报
回复
好像是在前面的搜索路径没设置好.
cd731107 2011-08-04
  • 打赏
  • 举报
回复
有问题可通过qq:441912867或者msn:cd731107cd@hotmail.com进行联系
问题解决后,可删除我这个好友,谢谢
cd731107 2011-08-04
  • 打赏
  • 举报
回复
[Quote=引用 11 楼 wwwwb 的回复:]
上传你的表单、DBF到www.access911.net/csdn
,用WINRAR压缩
[/Quote]
老大,已上传好了,叫ls.rar,里面有一个文本文件“这个文件一定要看.txt”,
请参考一下,谢谢
wwwwb 2011-08-04
  • 打赏
  • 举报
回复
上传你的表单、DBF到
http://www.access911.net/csdn/
用WINRAR压缩
cd731107 2011-08-04
  • 打赏
  • 举报
回复
感谢6楼、7楼、8楼兄弟的热心帮助
cd731107 2011-08-04
  • 打赏
  • 举报
回复
[Quote=引用 8 楼 apple_8180 的回复:]
你对 qd 表进行 pack 怎么提示 找不到别名 qd1 ?

错误行号4,应该是 pack 的上一句?
[/Quote]
确实是在pack这一句有问题,qq上可以和我联系,qq:441912867,或者能提供一个邮箱,
我把程序和数据库发过来,这里分不够,解决后另外会开贴几百分表示感谢,
敬请大家帮忙
十豆三 2011-08-04
  • 打赏
  • 举报
回复
你对 qd 表进行 pack 怎么提示 找不到别名 qd1 ?

错误行号4,应该是 pack 的上一句?
WWWWA 2011-08-04
  • 打赏
  • 举报
回复
sele qd1 试试
cd731107 2011-08-04
  • 打赏
  • 举报
回复
路径应该也不是问题,因为在98下面的好的
cd731107 2011-08-04
  • 打赏
  • 举报
回复
[Quote=引用 14 楼 qianjin036a 的回复:]
好像是在前面的搜索路径没设置好.
[/Quote]
昨天自己也大致摸索弄了一下,把use in qd1注释掉了,保存时就OK了,
但发现如果在某货品上输入的金额,再点击退出时,还会有这个问题,
(不对任何一个货品输入金额,直接点退出也是没问题的0
dfwxj 2011-08-03
  • 打赏
  • 举报
回复
use in qd1
关闭了QD1
cd731107 2011-08-03
  • 打赏
  • 举报
回复
3.Load event 中似乎是不能引用 thisform 的,应该是在表单的 Init 事件中才对;
但确实是这样,vfp不是很懂,没开发过,截了几个图:
主界面


Load时


init时
http://hi.csdn.net/attachment/201108/3/396589_13123587391iS4.jpg

保存时
加载更多回复(4)
Re: 《Linux 系统常用内置命令》  ---------------------------------------内容提要:     01. Linux内置命令概述;两栖命令 echo pwd kill 等等    02. 判断内置命令的方式;help -d [command] 能够正常回显    03. 内置命令在 shell 脚本中的基础应用介绍    04. 内置命令 alias 和 unalias 自定义别名和删除别名;临时生效与永久生效    05. 后台前台 出将入相 腾腾转 任务相关命令 bg fg jobs    06. SHELL 循环的处理方式 break continue exit    07. 常见 builtin 内置命令 eval exit export history    08. 内置命令 read 交互式赋值变量;type 判断命令类型    09. 内置命令 ulimit 修改系统资源使用限制;unset 清空变量  本人在教学和实战过程中发现,即便是有一定运维经验的人,可能已经能够搭建一定复杂度的Linux架构,但是在来来回回的具体操作中,还是体现出CLI(命令界面)功底不够扎实,甚至操作的非常‘拙’、处处露‘怯’。 对一个士兵来说,枪就是他的武器,对于一个程序员来说,各种library(工具库)就是他的武器;而对于Linux运维人员来说,无疑命令行工具CLI(命令界面)就是他们的武器;高手和小白之间的差距往往就体现在对于这些“武器”的掌握和熟练程度上。有时候一个参数就能够解决的事情,小白们可能要写一个复杂的Shell脚本才能搞定,这就是对CLI(命令界面)没有理解参悟透彻导致。 研磨每一个命令就是擦拭手中的作战武器,平时不保养不理解,等到作战的时候,一定不能够将手中的武器发挥到最好,所以我们要平心、静气和专注,甘坐冷板凳一段时间,才能练就一身非凡的内功! 本教程从实战出发,结合当下流行或最新的Linux(v6/7/8 版本)同时演示,将命令行结合到解决企业实战问题中来,体现出教学注重实战的务实精神,希望从事或未来从事运维的同学,能够认真仔细的学完Linux核心命令的整套课程。 本课程系列将逐步推出,看看我教学的进度和您学习的步伐,孰占鳌头! 注:关于教学环境搭建,可以参考本人其它课程系列,本教学中就不再赘述!  《参透 VMware 桌面级虚拟化》 《在虚拟机中安装模版机(包括应用软件等)》 《SecureCRT 连接 GNS3/Linux 的安全精密工具》

2,718

社区成员

发帖
与我相关
我的任务
社区描述
VFP,是Microsoft公司推出的数据库开发软件,用它来开发数据库,既简单又方便。
社区管理员
  • VFP社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧