以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  动态错误提示问题  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=30507)
--  作者：良才
--  发布时间：2013/3/29 11:42:00
--  动态错误提示问题

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”，代码应该怎样写？请高手指点，谢谢！
--  作者：良才
--  发布时间：2013/3/29 13:12:00
--  

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 \'如果没有输入错误,则打开窗口1
r.Save()
End If

动态没有出现错误不是保存，而是打开窗口1，动态出现错误就不能打开窗口1，请指点

[此贴子已经被作者于2013-3-29 14:04:30编辑过]
--  作者：狐狸爸爸
--  发布时间：2013/3/29 14:29:00
--  
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
    Forms("窗口1").Open()
End If
--  作者：良才
--  发布时间：2013/3/29 14:35:00
--  
谢谢！狐狸爸爸