回 帖 发 新 帖 刷新版面

主题:请教如何跳转焦点到指定的对象

表单form1中有pageframe1,在page3最后的焦点对象是一个"txt房产证号",想在这个文本框输入完之后调转到form1中的command1,我用的keypress事件,代码:

aaa=ALLTRIM(this.Value)
acd=LEN(aaa)  

IF nkeycode=13
IF  NOT EMPTY(aaa)    
  IF acd>11 OR acd<9
    Messagebox('产权证号码有误',16,'系统提示') 
    RETURN 0
  ENDIF 
ENDIF
ENDIF

但每次摁回车键,虽然提示出错,但却跳到了另一个对象上.请问怎样才能返回此文本框
  

回复列表 (共13个回复)

11 楼


总共有77个选项要填,如果不在每个里判断,保存的时候判断,就要设置77个判断条件,指定77个错误返回值。应该更麻烦

12 楼

在每个文本框的Valid方法里写判断语句检测输入的正确性.若不正确,用return .f.否则,用return .t.

13 楼

[quote][quote]文本框的lostfocus 事件:
aaa=ALLTRIM(this.Value)
acd=LEN(aaa)
IF  NOT EMPTY(aaa)  and (acd>11 OR acd<9) &&这句可以优化成 !=10
    Messagebox('产权证号码有误',16,'系统提示') 
    RETURN 0
ENDIF
thisform.command1.setfocus
[/quote]

谢谢您的帮助,但是不起作用,只要加上了判断长度的语句,就会跳转到别的对象,而且不能优化成!=10,因为9位、11位也是合法输入。[/quote]


那就证明你的判断语句有问题啊

我来回复

您尚未登录,请登录后再回复。点此登录或注册