在满足条件时,End if 前应退出子程序,"exit sub"、"goto"等等.如: If txtEmpLastName.Text = "" Then Utility.AddToMsg strMsg, "You must enter a last name." txtEmpLastName.SetFocus Exit Sub End If If txtEmpFirstName.Text = "" Then Utility.AddToMsg strMsg, "You must enter a first name." txtEmpFirstName.SetFocus Exit Sub End If
If txtEmpLastName.Text = "" Then
Utility.AddToMsg strMsg, "You must enter a last name."
txtEmpLastName.SetFocus
Exit Sub
End If
If txtEmpFirstName.Text = "" Then
Utility.AddToMsg strMsg, "You must enter a first name."
txtEmpFirstName.SetFocus
Exit Sub
End If