- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]关于返回控件 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=16784)
-- 发布时间：2012/2/23 16:56:00
-- [求助]关于返回控件
想实现当控件未填写内容时，跳出提示，并且光标返回控件。参考了别人案例后
With e.Form
If .Controls("ComboBox1").value Is Nothing Then
msgbox("请选择品种!",64,"提示")
.Controls("ComboBox1").Select()
End if
End with
但在提示语句结束后，光标会停到Tab顺序第一位的datetimepicker1上，请问有什么方法解决？
-- 发布时间：2012/2/23 17:59:00
--
你应该用Validating事件：
http://www.foxtable.com/help/topics/0736.htm
-- 发布时间：2012/2/24 8:18:00
--
狐爸，validating我用了，但是如果他直接不点击控件按保存的话，我还是希望有提示然后光标返回相应控件，这个怎么做呢
-- 发布时间：2012/2/24 8:40:00
--
validating事件一样可以提示信息啊？
例如:
If e.Sender.Value Is Nothing Then
messagebox.Show("请输入日期！")
e.Cancel = True
End If
-- 发布时间：2012/2/24 9:26:00
--
嗯，这个我知道。但如果他不点击设置了validating的控件，在输入了其他控件之后直接点击保存的话，那不是就会跳过这些提示了么
-- 发布时间：2012/2/24 9:30:00
--
你在保存按钮，进行同样的验证即可：
if e.Form.Controls("xxx").Value Is Nothing then
messagebox.Show("请输入日期！")
return
else
\'保存按钮原来的带代码
EnD if
-- 发布时间：2012/2/24 10:32:00
--
狐爸，貌似还是有点问题，我把项目上传你帮我看下吧，代码写在荒料入库的页面。
顺便问下，我用绑定表的方式进行保存，那保存button最后是不是应该要写一段让表增加一行的代码？该怎么写呢？
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:仓管版本1.0.zip |
-- 发布时间：2012/2/24 11:38:00
--
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
如果绑定了，自然要增加行的。
-- 发布时间：2012/2/24 13:05:00
--
增加行的该怎么写呢？我用的外部表，有主键了
-- 发布时间：2012/2/24 13:22:00
--
Tables("表名").AddNew()