首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 数据库 > VFP >

vfp终止程序的初级有关问题

2012-04-27 
vfp终止程序的初级问题update.prg代码:do prgs\test_conn.prg &&测试连接do prgs\uploadOra.prg&&上传do p

vfp终止程序的初级问题
update.prg代码:
do prgs\test_conn.prg &&测试连接
do prgs\uploadOra.prg &&上传
do prgs\uploadSQL.prg  
do prgs\download.prg &&下载
每个prg中出错都有messagebox加return
如:
if ireturn<0 **连接句柄
messagebox(‘连接错误’)
return &&return .f.试了也不行
endif
问题:现在是如果一个prg出错了,程序会终止当前prg,仍然继续执行后面的prg.
我的要求是只要出错,整个update.prg停止并退出。

[解决办法]
改写成函数,把这些 PRG 全部改写成函数,然后放到一个PRG(如:MyFunction.PRG)中,并在主程序开头加:
Set Procedure To MyFunction.PRG
然后类似这样的语句
do prgs\test_conn.prg 
改为
if 函数名()
*再向下执行
endif

热点排行