您所在位置：主题：求助
zydrl
[专家分：0] 发布于 2010-11-16 17:09:00
我想在text1文本框中输入6个数字的号码，如：123456（字符型），然后查找表中是否存在相同号码，如果存在相同号码，则提示停止操作。我在text1的Keypress中加入代码：
select 表
locate all for 号码=thisform.pageframe1.page1.text1.value
if 号码=thisform.pageframe1.page1.text1.value
MESSAGEBOX("该号码已经存在，请停止操作。",64,"温馨提示")
else
MESSAGEBOX("该号码不存在，请继续操作。",64,"温馨提示")
endif
但运行时，在文本框中输入一个数就出现提示，而不能继续输入数字。请教高手们是哪里错了。
谢谢。
select 表
locate all for 号码=thisform.pageframe1.page1.text1.value
if 号码=thisform.pageframe1.page1.text1.value
MESSAGEBOX("该号码已经存在，请停止操作。",64,"温馨提示")
else
MESSAGEBOX("该号码不存在，请继续操作。",64,"温馨提示")
endif
但运行时，在文本框中输入一个数就出现提示，而不能继续输入数字。请教高手们是哪里错了。
谢谢。
