标题：多重条件判断!!!帮帮忙看看，谢谢
Dim Q As String
Q = e.Form.Controls("姓名").Value
Dim T As String
T = e.Form.Controls("身份证号").Value
Dim S As Data
T = 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 '终止代码的执行
if S = "" then
MessageBox.Show("出生日期不能为空，请录入出生日期以后再新增人员!!!", "提示", MessageBoxButtons.OK,MessageBoxIcon.Information)
Return '终止代码的执行
Else
CurrentTable.AddNew()
End If
END IF
END IF
Dim Q As String
Q = e.Form.Controls("姓名").Value
Dim T As String
T = e.Form.Controls("身份证号").Value
Dim S As Data
T = 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
看红色的地方和你的有什么不同
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
Q = e.Form.Controls("姓名").Value
Dim T As String
T = e.Form.Controls("身份证号").Value
Dim S As DatE
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
还是不行
有什么提示?是放在何处的?
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:doc1.rar |
Dim S As DATE
S = e.Form.Controls("出生日期").Value
我怀疑是这段代码有问题