1,可以用全局变量 http://www.foxtable.com/help/index.html?n=1450.htm2,在窗口AfterLoad
加e.Form.Controls("TextBox1").Error = "不能为空"
在TextBox1的Validating中加
If e.Form.Controls("TextBox1").Text > "" Then
e.Form.Controls("TextBox1").Error = ""
Else
e.Form.Controls("TextBox1").Error = "不能为空"
End If
[此贴子已经被作者于2015/8/1 11:40:44编辑过]