控件内容输错，如何定位光标在原来位置

时　间:2017-11-20 18:27:36
作　者:凝听   ID：44716  城市：奉贤
摘　要:我们经常遇到窗体控件需要限制录入内容，如果内容或格式不符合要求，我们希望清空该文本框的值，并将光标定位在该文本框，等待输入正确的格式或内容
正　文:

假设我将数量文本框限制只能输入数字，想实现的目的是如果输入字符就清空该文本框，并将光标停留在此处

常规思路是：

Private Sub 数量_AfterUpdate()
If IsNumeric(Me.数量) = False Then
Me.数量 = Null
Me.数量.SetFocus
End If
End Sub

结果发现不行，还是跳到价格控件去了

后来尝试好久，终于发现需要先指定下一个控件获得焦点（也就是用以上的方法运行后，先将价格控件获得焦点/光标），然后再将数量控件获得光标/焦点，具体如下：

Private Sub 数量_AfterUpdate()
If IsNumeric(Me.数量) = False Then
Me.数量 = Null
Me.价格.SetFocus
Me.数量.SetFocus
End If
End Sub