以下是引用bccn201203在2012-9-24 11:09:29的发言：

TEXT1的值为空，程序肯定不让你退出
PROCEDURE DESTROY
CLEAR EVENTS
QUIT
ENDPROC

以下是引用有容就大在2012-9-24 14:15:10的发言：


哈哈 把 VFP 主窗口也咔嚓掉了。。。Procedure Destroy
        Clear Events
        QUIT &&退出VFP
    EndProc

Procedure Destroy
   Clear Events
   QUIT &&退出VFP
EndProc

以下是引用TonyDeng在2012-9-24 12:10:59的发言：

在Valid事件中检查合法性，最好不要强制不能离开，换一种方式出提示，不用默认的那个。

以下是引用有容就大在2012-9-24 14:52:32的发言：


给个简单示例 被这个搞眩晕了。。

以下是引用bccn201203在2012-9-24 14:58:43的发言：

IF EMPTY(THIS.TEXT1.VALUE)
   MESSAGEBOX([数据不能为空])
   JS=JS+1 && JS 为全局变量
   RETURN IIF(JS=1,0,JS) && 第二次可以退出TEXT1
ENDIF

以下是引用有容就大在2012-9-24 15:52:41的发言：


牛X 试了下 如果PUBLIC JS JS = 0 能在text为空的情况下关闭窗口
如果 JS初值 是N 那么光标很奇怪的会下移n个单位 为什么？
在TEXT数值不为空的情况下 怎么和JS发生联系的？貌似代码里没提到啊？

以下是引用bccn201203在2012-9-24 15:58:08的发言：

在TEXT1的LOSTFOCUS 事件中
JS=0

你描述的这种情况，我过去在别的论坛上看到过，可以这样解释
RETURN -2 && 光标移至上二个控件
RETURN -1 && 光标移至上一个控件
RETURN 0 && 原地踏步走
RETURN 1 && 光标移至下一个控件
RETURN 2 && 光标移至下二个控件

你可以试试

    PROCEDURE TextBox1.Valid
    With This
        IF EMPTY(This.Value)
              JS = JS + 1
            RETURN IIF(JS = 1, 0, JS)
        EndIf
        EndWith
    EndProc
   

以下是引用有容就大在2012-9-24 16:18:39的发言：


我的意思是 这个程序没出现LOSTFOCUS事件代码
而
    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代码没出现的
情况下 程序会自动获取跳跃单位为全局变量JS？ 那我在定义些全局变量HS SS CS ...那他认谁？

IF
ELSE
ENDIF

那我在定义些全局变量HS SS CS ...那他认谁？