想在文本框里重新获得焦点（在查无此人的情况下，光标不离开文本框）
在一个表单里的代码如下
对象(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编辑过]

谢谢你问下代码怎么写

非常感谢，成了！

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

非常感谢，成了！