想在文本框里重新获得焦点（在查无此人的情况下，光标不离开文本框）
在一个表单里的代码如下
对象(B):    ablText1   
过程(R):    LostFocus   

IF NOT USED("NXT")
     USE NXT IN O ALIAS NXT ENDIF sele nxj
locate for num=THISFORMTEXT1.VALUE
if .not.eof()
Thisform.text3.value=‘fg’
Else
     MessageBox("查无此人”，“提示”)
ThisForm.Text1.SetFocus    &&没有起作用?   
Return
endif
没有成功，不知道问题在哪里？求助！

[此贴子已经被作者于2023-5-6 08:37编辑过]

在Valid()中判断，不满足条件时Return .f.

谢谢你问下代码怎么写

ThisForm.Text1.SetFocus    &&没有起作用?   
Return
改为
VALID 事件代码
return .f.

或者
return ThisForm.Text1

[此贴子已经被作者于2023-5-6 14:32编辑过]

[此贴子已经被作者于2023-5-6 14:20编辑过]

非常感谢，成了！

二位大佬的代码都成了。我也遇到另一个情况，在查无此人的情况下，光标能回到text1处后，我若直接点击退出命令按钮，则不能直接关闭该表单，而是必须查到人员的情况下，点击退出命令才可以关闭表单。

非常感谢，成了！

在命令按钮中写入相应的代码就不会出现退不出的情况