窗口全局代码Enter，能用简便代码吗？请老师指教，谢谢！
Select Case e.Sender.Name
Case "民族"
If e.Form.Controls("教工姓名").Value Is Nothing Then
e.Form.Controls("教工姓名").Select
Return
End If
Case "身份证号"
If e.Form.Controls("民族").Value Is Nothing Then
e.Form.Controls("民族").Select
Return
End If
Case "政治面貌"
If e.Form.Controls("身份证号").Value Is Nothing Then
e.Form.Controls("身份证号").Select
Return
End If
Case "婚姻状况"
If e.Form.Controls("政治面貌").Value Is Nothing Then
e.Form.Controls("政治面貌").Select
Return
End If
End Select
[此贴子已经被作者于2020/11/29 17:26:23编辑过]
加好友 
发短信
Post By：2020/11/29 17:21:00 [显示全部帖子]
