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

想实现当控件未填写内容时，跳出提示，并且光标返回控件。参考了别人案例后

With e.Form
    If .Controls("ComboBox1").value Is Nothing Then
        msgbox("请选择品种!",64,"提示")
        .Controls("ComboBox1").Select()

End if

End with

 

但在提示语句结束后，光标会停到Tab顺序第一位的datetimepicker1上，请问有什么方法解决？

你应该用Validating事件：

 

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

 

 

 

狐爸，validating我用了，但是如果他直接不点击控件按保存的话，我还是希望有提示然后光标返回相应控件，这个怎么做呢

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

 

例如:

 

If e.Sender.Value Is Nothing Then

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

嗯，这个我知道。但如果他不点击设置了validating的控件，在输入了其他控件之后直接点击保存的话，那不是就会跳过这些提示了么

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

狐爸，貌似还是有点问题，我把项目上传你帮我看下吧，代码写在荒料入库的页面。

顺便问下，我用绑定表的方式进行保存，那保存button最后是不是应该要写一段让表增加一行的代码？该怎么写呢？

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:仓管版本1.0.zip

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()