主题：[求助]关于返回控件

你应该用Validating事件：

 

http://www.foxtable.com/help/topics/0736.htm

 

 

 

validating事件一样可以提示信息啊？

 

例如:

 

If e.Sender.Value Is Nothing Then

    messagebox.Show("请输入日期！")
    e.Cancel = True
End If

你在保存按钮，进行同样的验证即可：
 
if e.Form.Controls("xxx").Value Is Nothing then
     messagebox.Show("请输入日期！")
    return
else
    '保存按钮原来的带代码
EnD if

Validating事件：

 

If e.Sender.value Is Nothing Then
    msgbox("请选择品种!",64,"提示")
    e.Cancel = True
End If

 

 

保存按钮：

 

Dim cmb As WinForm.ComboBox = e.Form.Controls("ComboBox1")
If cmb.value Is Nothing Then
    cmb.baseControl.Focus()
    msgbox("请选择品种!",64,"提示")
End If

 

 

如果绑定了，自然要增加行的。

Tables("表名").AddNew()