方法很多,说一两种。
前提情况:表单集1,表单2(form1,form2),表单1控件(f1button),表单2控件(f2button)
方法一:在form1获得焦点后,把焦点还给form2.在form1的active事件中写:
If Type("this.parent.form2")="O"&&如果表单2存在
Thisformset.form2.f2button.SetFocus&&表单取得焦点
Endif
Return .F.
方法二:在form2失去焦点前,强行返回。在form2.lostfocus事件中写:
if type("thisformset.form1")="O"
this.f2button.setfocus
endif
return .f.