保存的时候,判断是否填入值,如
If e.Form.Controls("TextBox1").Text = Nothing Then
msgbox("xxx不能为空")
return
End If
If e.Form.Controls("TextBox2").Text = Nothing Then
'保存代码