PrivateSubText4_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=vbKeyReturnThenIfText4.Text=""ThenMsgBox"驾驶证号不能为空!!",,"车辆管理系统"Text4.SetFocusEndIfDTPicker2.SetFocusEndIfEndSubPrivateSubText6_KeyDown(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=