text 失去焦点时,会检测textbox的数据是否符合标准,如果不符合,则光标要停在 text中,我用的方法是 lostfocus中检测,但是检测失败后,光标还是跳到别的地方,并没有停在 text中
text_lostfocus()事件中
text.setfocus
=======================
好像并不起作用
------解决方案--------------------------------------------------------
加上 nodefault 就不会失去焦点
------解决方案--------------------------------------------------------
------解决方案--------------------------------------------------------
如:Textbox 的 Valid 事件加代码
- SQL code
If !Empty(This.Text) And Len(Alltrim(This.Text))<4 && 如输入长度不能小于4 If Messagebox('输入不符合标准,是否重新输入?'+Space(3),4+32,'信息提示')=6 Return 0 EndifEndif