高手们看过来.我的系统做好了.可是就是关不了.它总是提示不能退出 VF
if wchild('screen')>1
xx=messagebox("请将其他窗口关闭后，然后再退出系统...",0+48,"提示")
else
*如果在退出时只有这一个用户，将做数据清理
SET EXACT ON
IF !USED("paswd")
USE passwd ALIAS passwd IN 0
SELECT passwd
=CURSORSETPROP("Buffering", 3, "passwd")
GO top
ENDIF
SELECT passwd
LOCATE FOR ALLTRIM(passwd.username)=ALLTRIM(NowUser).and.!DELETED()
IF !RLOCK()
wait window "记录锁定失败！不能修改用户状态，稍侯退出。" timeout 2
ELSE
replace passwd.userstate with 0
=TABLEUPDATE(.t.)
UNLOCK
SUM passwd.UserState TO aa
IF aa=0 .and.allt(NowUser)#"Master"
WAIT windows "现在没有用户使用系统，现在将做数据清理..." NOWAIT
CLOSE ALL
OPEN DATABASE dbexpert EXCLUSIVE
USE tbexpert EXCLUSIVE
PACK
USE fitness EXCLUSIVE
PACK
USE education EXCLUSIVE
PACK
USE studyspec EXCLUSIVE
PACK
USE workspec EXCLUSIVE
PACK
USE technic EXCLUSIVE
PACK
USE nowjob EXCLUSIVE
PACK
USE company EXCLUSIVE
PACK
USE passwd EXCLUSIVE
PACK
USE sysdate EXCLUSIVE
PACK
USE invitetender EXCLUSIVE
PACK
USE tbinvite EXCLUSIVE
PACK
ENDIF
clear event
clear dlls
quit
endif
ENDIF
我的退出程序是上面那个样的.可是我不知道哪里用上它才是对的.
如果没有调用的时候就会出显,不能退出VF,真的不知道这是为什么.
请教请教这个问题.
在这里先谢过了.
我的QQ:116501790
可以加上我啊.
问题点数：0、回复次数：7Top
1 楼noproblem12（被捡破烂的捡起的破烂）回复于 2003-12-01 14:48:04 得分 0
估计是视图更新错误
USE tbexpert EXCLUSIVE
PACK
use &&都加上这个试试Top
2 楼ZhuJiaWei（逍遥童子）回复于 2003-12-01 15:08:24 得分 0
在结束程序的地方加
Clear Event
Release all
Close all
Clear memo
Top
3 楼duckson（夏天的风）回复于 2003-12-01 15:46:36 得分 0
你用quit和clea event2句，没有退不出来的
建议不要用lock语句，太老了!Top
4 楼yudehui（静动风云）回复于 2003-12-03 08:31:31 得分 0
用quit和clea eventTop
5 楼sunsunup（細水長流）回复于 2003-12-03 09:50:05 得分 0
不要clear dllTop
6 楼dewei（小福）回复于 2003-12-03 11:31:35 得分 0
程序可读性很不好。没有注释。
quit没有退不出来的，只有一种情况，程序有非法操作。Top
7 楼truehan（真男人）回复于 2003-12-03 14:04:16 得分 0
没运行到quitTop
