看图写话 给老爷爷让座:VFP退出问题

来源:百度文库 编辑:高校问答 时间:2024/05/07 12:55:52
用VFP做的工资系统,编译成EXE可执行文件后,退出即会出现无效的下标引用,请高手指点
主文件如下:
clear screen
=setpath()
on shutdown do OnShutDown()
do form fm
read events
on shutdown do OnShutDown()

function setpath()
local lcsys16,lcprogram
lcsys16=sys(16)
lcprogram=substr(lcsys16,at(":",lcsys16)-1)
cd left(lcprogram,rat("\",lcprogram))
set path to gzgl
endfunc

FUNCTION OnShutDown()
nAns = MESSAGEBOX("您是否要退出这个程序?",65 ,"信息提示" )
IF nAns = 1
clear events
clear all
quit
return
EndIf
ENDFUNC

我也常遇到,但只要exe能用,就不管它,不影响