这个功能在使用窗口时基本都要用到的，请官方关注，放上一段精简及通用的代码，谢谢。
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() '定位到该控件输入框内
Exit For
End If
Next
以上是我在论坛抄来的代码，可以使用，但是以下两句代码不知道放在那个位置合适，请大神们帮忙，谢谢
'如果指定控件内容不为空，则执行锁定及保存或其他指定代码
Tables("材料信息").AllowEdit = False '锁定表
Tables("材料信息").Current.Save() '保存指定表当前行数据
加好友 
发短信
Post By：2014/5/9 0:56:00 [显示全部帖子]
