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

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