汽车维修企业管理系统

Private Sub Text4_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then If Text4.Text = "" Then MsgBox "驾驶证号不能为空！！", , "车辆管理系统" Text4.SetFocus End If DTPicker2.SetFocus End If End Sub Private Sub Text6_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Combo1.SetFocus '按回车键Combo1获得焦点 End Sub Private Sub Text7_KeyDown(KeyCode As Integer, Shift As Integer) If KeyCode = vbKeyReturn Then Text8.SetFocus '按回车键Combo1获得焦点 End Sub