主题：多重条件判断!!!帮帮忙看看，谢谢

看红色的地方和你的有什么不同
Dim Q As  String

Q = e.Form.Controls("姓名").Value

Dim T As  String

T = e.Form.Controls("身份证号").Value

Dim S As  Data

S = e.Form.Controls("出生日期").Value

if Q = "" then   

 MessageBox.Show("姓名不能为空，请录入姓名以后再新增人员!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if T = "" then   

 MessageBox.Show("身份证号不能为空，请录入身份证号以后再新增人员!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

if S = "" then   

 MessageBox.Show("出生日期不能为空，请录入出生日期以后再新增人员!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)

Return       '终止代码的执行

Else

CurrentTable.AddNew()

End If

END IF

END IF

有什么提示?是放在何处的?

日期型不可能为空吧?我想想

出生日期是什么控件?

if S Is Nothing  then