主题：动态错误提示问题

Dim HasError As Boolean
Dim r As Row = Tables("基本信息").Current

If r.IsNull("性别") Then
    e.Form.Controls("ComboBox1").Error = "你没有选择性别!"
    HasError = True
Else
    e.Form.Controls("ComboBox1").Error = ""
End If

If HasError = False Then '如果没有输入错误,则保存
   r.Save()
End If
我不想保存，需要打开“窗口1”，代码应该怎样写？请高手指点，谢谢！