可以加入延时操作。在After Update事件中,设置一个Timer控件,在Timer事件中使用SetFocus操作,即可达到在After Update事件中设置焦点的目的。代码示例如下:
Private Sub txtAfterUpdate_AfterUpdate() Me.TimerInterval = 500 '设置500毫秒的延时 End Sub
Private Sub Form_Timer() Me.TimerInterval = 0 '重置TimerInterval Me.txtAfterUpdate.SetFocus '设置焦点 End Sub