主题：[求助] 内容空判断命令

end if

'窗口保存前检查内容空白的输入控件(这里选择了两个类型"TextBox"和"ComboBox"),如可以为空的控件可选用其他类型,如:NumericComboBox

Dim Fkb As Boolean = True '设置变量"Fkb"为逻辑性且=真

For Each c As WinForm.Control In e.Form.Controls '遍历窗口控件，判断指定的两种类型控件的内容是否为空

    If c.Gettype.Name = "TextBox" AndAlso e.Form.Controls(c.Name).Text = "" Or c.Gettype.Name = "ComboBox"  AndAlso e.Form.Controls(c.Name).Text = ""  Then

        MessageBox.Show("[" + c.Name + "]" + "不能为空,请输入","提示") '提示为空的控件名称(建议在控件属性处将控件名称改为提示名称,这样提示会更直观)

        e.Form.Controls(c.Name).Select() '定位到该控件输入框内

        Fkb = False '并将"Fkb"的值设为"假"

        Exit For

    End If

Next

If Fkb Then '如果"Fkb"为真

    Tables("材料信息").AllowEdit = False '锁定表

    Tables("材料信息").Current.Save() '保存指定表当前行数据

End If

'窗口保存前检查内容空白的文本框-结束