以下是引用bccn201203在2012-9-24 11:09:29的发言:
TEXT1的值为空,程序肯定不让你退出
PROCEDURE DESTROY
CLEAR EVENTS
QUIT
ENDPROC
TEXT1的值为空,程序肯定不让你退出
PROCEDURE DESTROY
CLEAR EVENTS
QUIT
ENDPROC
哈哈 把 VFP 主窗口也咔嚓掉了。。。
梅尚程荀
马谭杨奚
PROCEDURE TextBox1.Valid With This IF EMPTY(This.Value) JS = JS + 1 RETURN IIF(JS = 1, 0, JS) EndIf EndWith EndProc是文本框为空时 才会JS = JS + 1 而且 此时才会返回跳跃单位的数量 为什么在文本框不为空也就是else代码没出现的