代码如下：

当需求描述，show_version,版本期望交期如果有一列为空，就提示需求描述，show version和版本期望交期不能为空。但这样的提示不够准确。

希望能具体到到底是那一列的值或者是哪几列的值为空。

例如，如果是需求描述为空，那就提示需求描述不能为空。

如果是需求描述和show_version都为空，那就提示需求描述和show_version都不能为空。

Dim r As Row = Tables("需求明细表").Current
If r("已提交") Then
    MessageBox.show("此需求已经提交过了,不能再次提交","博达软件管理系统",MessageBoxButtons.OK,MessageBoxIcon.error)
    Return
End If
If r.IsNull("需求描述") = True OrElse r.IsNull("show_version") = True OrElse r.IsNull("版本期望交期") = True Then
    MessageBox.show("请检查,需求描述，show version和版本期望交期不能为空","点击第二步提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)
Else

这么写的话，提示还是不够准确。

比如正好这3列都为空或者其中2列为空。可提示信息只有一列内容。

这样也肯定是某一列为空的提醒。

比如这3列都为空。我是否要加入对这3列都为空的判断。如果是2列，那还需要组合一下。

If r.IsNull("需求描述") = True andalso r.IsNull("show_version") = True andalso r.IsNull("版本期望交期") = True Then
    MessageBox.show("请检查,需求描述，show version和版本期望交期不能为空","点击第二步提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)
Else

Dim str As String = ""
If r.IsNull("需求描述")
    str &= "需求描述,"
End If
If r.IsNull("show_version")
    str &= "show version,"
End If
If r.IsNull("版本期望交期") Then
    str &= "版本期望交期"
End If

    MessageBox.show("请检查," & str.Trim(",") & "不能为空","点击第二步提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)

这个方法好。我咋就不知道这么做呢。我试一下。

试过了，这样是可以的。但有个问题。当这3列都不为空的时候，按道理应该去执行红色字体的代码。可事实上又去执行了一次蓝色字体的代码，提示框的内容为请检查，不能为空。

If r.IsNull("版本期望交期")
    str &= "版本期望交期,"
End If
If r.IsNull("show_version")
    str &= "show version,"
End If
If r.IsNull("需求描述") Then
    str &= "需求描述"
End If
MessageBox.show("请检查," & str.Trim(",") & "不能为空","点击第二步提交时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)

If r.Isnull("需求描述")=False AndAlso r.Isnull("show_version")=False AndAlso r.Isnull("版本期望交期")=False
    If MessageBox.show("请确认新增行内容是否可以提交售后审核?","提交前请确认",MessageBoxButtons.OKCancel,MessageBoxIcon.Question)=DialogResult.OK Then