多重条件判断!!!帮帮忙看看，谢谢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 多重条件判断!!!帮帮忙看看，谢谢

共有20258人关注过本帖树形打印复制链接主题：多重条件判断!!!帮帮忙看看，谢谢

杨浩

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

多重条件判断!!!帮帮忙看看，谢谢 发帖心情

Post By：2009/8/5 13:59:00 [显示全部帖子]

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

杨浩

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:04:00 [显示全部帖子]

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

杨浩

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:04:00 [显示全部帖子]

这样改了还是有问题！！！帮帮帮

杨浩

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:15:00 [显示全部帖子]

Dim Q As String

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

杨浩

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:15:00 [显示全部帖子]

还是不行

杨浩

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:16:00 [显示全部帖子]

杨浩

小大 7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

提示截图

Post By：2009/8/5 14:20:00 [显示全部帖子]

下载信息 [文件大小：下载次数： ]
点击浏览该文件:doc1.rar

杨浩

小大 8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:20:00 [显示全部帖子]

Dim S As DATE

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

我怀疑是这段代码有问题

杨浩

小大 9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:21:00 [显示全部帖子]

如何判断一个时间型的录入框数据为空？

杨浩

小大 10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：一尾狐帖子：483 积分：2913 威望：0 精华：0 注册：2008/9/21 16:18:00

Post By：2009/8/5 14:22:00 [显示全部帖子]

改成

Dim S As String

S = e.Form.Controls("出生日期").Value
总是提示没有录入数据，但实际有录入了的

下一主题 >> << 上一主题

总数 19 1 2 下一页

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