环境: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
下面是错误的截图,请大大帮忙