BUG录入系统的afterload代码如下：

Dim r As Row = Tables("BUG录入表").Current
r("软件版本") = "请选择软件版本号"
r("测试机型") = "请选择测试机型"
r("测试项目") = "请输入测试项目标题,言简意赅"
r("现象描述") = "请输入BUG故障信息,越详细越好.但不要罗里吧嗦,让研发看着郁闷!"
r("严重程度") = "请选择严重程度"
r("优先级别") = "请选择优先级别"
r("怀疑模块") = "请选择模块"

相当于给这些列赋值了，但是呢，请选择***，请输入***，这些仅仅是用来提示的。

那么问题来了。

我的保存按钮，需要判断哪些必填项列的值是否为空。为空就动态提醒。按照上面的赋值，那就是所有列都是有值的，就无法判断了。

保存代码如下：

Dim r As Row = Tables("BUG录入表").Current
Dim str As String =""
If r("已保存") Then
    MessageBox.show("此BUG编号已经保存过了,不需要再次保存","博达BUG综合管理系统",MessageBoxButtons.OK,MessageBoxIcon.error)
    Return
End If
If r.IsNull("软件版本")
    str &= "软件版本,"
End If
If r.IsNull("测试机型")
    str &= "测试机型,"
End If
If r.IsNull("现象描述")
    str &= "现象描述,"
End If
If r.IsNull("严重程度")
    str &= "严重程度,"
End If
If r.IsNull("优先级别") Then
    str &= "优先级别，"
End If
If r.IsNull("怀疑模块") Then
    str &= "怀疑模块"
End If
If str >""
    MessageBox.show("请检查," & str.Trim(",") & "不能为空","点击保存时请确认",MessageBoxButtons.OK,MessageBoxIcon.Question)
End If

 这样判断

If r.IsNull("软件版本") OrElse r("软件版本") = "请选择软件版本号" Then