- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助] 内容空判断命令 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=52234)
-- 发布时间：2014/6/11 16:35:00
-- [求助] 内容空判断命令
如果我想按下确定按钮后、如果上面5个文本框中任意一个框有未填内容的，即弹出提示。
此主题相关图片如下：360截图20140611162536968.jpg
-- 发布时间：2014/6/11 16:39:00
--
if e.form.controls("XX").text="" orElse e.form.controls("XX").text="" then \'以此类推
messagebox.show("有空值")
end if
-- 发布时间：2014/6/11 18:03:00
--
楼主，你好，这是我在用的代码，希望可以帮到你。
\'窗口保存前检查内容空白的输入控件(这里选择了两个类型"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
\'窗口保存前检查内容空白的文本框-结束
[此贴子已经被作者于2014-6-11 18:03:13编辑过]