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

在BeforeSaveDataRow事件中，我写了如下代码。

我想实现的功能是，如果能成功保存了，就弹出提示“MessageBox.Show("已通过初步的数据效验,没有发现明显错误,已成功保存!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)”，应该怎么写？

If  CStr(e.DataRow("证件号码")).Length <> 18 Then

    MessageBox.Show("身份证号码位数不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

Else

End If

If CStr(e.DataRow("证件号码")).Length <> 18 Then

    MessageBox.Show("身份证号码位数不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

Else If  e.DataRow("出生日期").Length <> 8 Then

    MessageBox.Show("出生日期位数不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

Else If  e.DataRow("出生日期").Length <> 8 Then

    MessageBox.Show("出生日期位数不正确,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

Else If  e.DataRow("批准时间").Length <> 8 Then

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

    e.Cancel = True

End If

If  e.DataRow.IsNull("行政区域")

    MessageBox.Show("行政区域不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("证件号码")

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

    e.Cancel = True

ElseIf e.DataRow.IsNull("证件类型")

    MessageBox.Show("证件类型不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("姓名")

    MessageBox.Show("姓名不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("性别")

    MessageBox.Show("性别不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("出生日期")

    MessageBox.Show("出生日期不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("职场系列")

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

    e.Cancel = True

ElseIf e.DataRow.IsNull("职场级别")

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

    e.Cancel = True

ElseIf e.DataRow.IsNull("职场名称")

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

    e.Cancel = True

ElseIf e.DataRow.IsNull("评审活动是否设置评审专业")

    MessageBox.Show("评审活动是否设置评审专业不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("评审专业名称")

    MessageBox.Show("评审专业名称不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("本地评审专业名称")

    MessageBox.Show("本地评审专业名称名称不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("发证机构")

    MessageBox.Show("发证机构不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("评审机构")

    MessageBox.Show("评审机构不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

ElseIf e.DataRow.IsNull("批准时间")

    MessageBox.Show("批准时间不能为空,请修改!","提示",MessageBoxButtons.OK,MessageBoxIcon.Error)

    e.Cancel = True

End If

If e.DataRow("评审时间").Length > 0 Then

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

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

        e.Cancel = True

    End If

End If

If e.DataRow("备注") <> "确认" And e.DataRow("备注") <> "过渡"

    If e.DataRow.IsNull("职场文件文号")

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

        e.Cancel = True

    End If

End If