我有一个表单,上面有一个文本框.
我希望的结果是,在文本框录入数据后回车,相关程序运行完后,focus仍然在此文本框内,并自动清空数据,可以直接继续输入,而不用再点击此文本框.
我在keypress事件里加入了this.click,不起作用.

keypress事件里加入：
IF nKeyCode=13
   &&执行你的相关程序
   this.Value=""  &&如果你的文本框值是字符型的
ENDIF

在valid 事件中加入：
RETURN 0

这里，你要判断你输入的是不是回车，如是回车，则执行相关程序、清空文本框内容，最后设置焦点。

必须先声明一个全局变量aaa,或者自义一个属性.
keypress事件:
LPARAMETERS nKeyCode, nShiftAltCtrl
aaa=nKeyCode
IF aaa=13
   &&执行你的相关程序
   this.Value=""  &&如果你的文本框值是字符型的
ENDIF

valid事件:
IF aaa=13
aaa=0
RETURN 0
ELSE
RETURN 1
ENDIF

[[it] 本帖最后由 潇洒人间一剑仙 于 2008-10-17 13:50 编辑 [/it]]

版主大大说到valid事件是正确的,但是我是要回车保持焦点,点击时还是要离开文本框的.
如果直接在里面写return 0,就死循环了,连程序都无法结束.
顺便感谢上面两位版主,群主,和群里的programfan兄.

Publ Entekg
Entekg=.f.
keypress事件里加入：
IF nKeyCode=13
  Entekg=.t.
   &&执行你的相关程序
   this.Value=""  &&如果你的文本框值是字符型的
ENDIF

在valid 事件中加入：
if Entekg
   Entekg=.f.
   RETURN 0
endif

[[it] 本帖最后由 qjbzjp 于 2008-10-17 16:35 编辑 [/it]]

呵呵。^_^

这样可以吗？

试了不行。