通过一系列判断，如何用IF语句 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 通过一系列判断，如何用IF语句

共有2647人关注过本帖树形打印复制链接主题：通过一系列判断，如何用IF语句

有点蓝

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

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/27 9:06:00 [显示全部帖子]

Else If e.DataRow("评审时间").Length <> 8 Then

MessageBox.Show("评审时间位数不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

e.Cancel = True

Else If e.DataRow("备注") <> "确认" And e.DataRow("备注") <> "过渡" andalso e.DataRow.IsNull("职场文件文号")

MessageBox.Show("职场文件文号不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

e.Cancel = True

Else

MessageBox.Show("已通过初步的数据效验,没有发现明显错误,已成功保存!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

End If

有点蓝

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

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2021/3/27 9:09:00 [显示全部帖子]

放在这里提示不合理。因为这个是保存前事件，保存的时候可能会因为其它原因而导致保存失败。正确应该是做一个保存按钮

DataTables("产品").save

If DataTables("产品").HasChanges Then
MessageBox.Show("保存失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)

else

MessageBox.Show("已通过初步的数据效验,没有发现明显错误,已成功保存!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If

主题：通过一系列判断，如何用IF语句