对文本框输入的内容进行检查后,如输入错误如何让文本框不失去焦点而继续修改,直到输入正确

注:这个文本输入的是一个计算公式.我把检查语句放在Valid过程中了

[此贴子已经被作者于2007-9-9 7:59:06编辑过]

可以使用Nodefault语句，如下例：

if MessageBox("发票代码没有输入！要重新输入发票代码吗？",36,"数据错误") = 6
NODEFAULT
endif

[此贴子已经被作者于2007-9-9 7:44:03编辑过]

Valid 事件代码：

*!* 这里是你的检查代码
If 检查通不过
Messagebox([公式输入错误，请重新输入])
Retrun 0 && 是数字 0 ，不是字母 o
EndIf

谢谢,我用你说的方法成功了,谢谢!!!