textbox编辑到最后时，或者说光标移动到textbox最后时，不让光标自动移到下一个控件,让光标停下来。用SET CONFIRM ON/OFF 不行

[ 本帖最后由 shenkj001 于 2015-6-18 15:33 编辑 ]

自动移到下一个控件不好吗

主要是输入时各个文本框里的要输的内容长短不一，不能常用回车。

说说你这么设计的理由，再帮你想想怎么处理。

具体操作过程是怎样？不移到下一个控件怎样继续输入其他数据？

你好!用回车或Tab均可以。主要是想在多个相同MAXLENGTH的文本框中输入不等长信息时，解决习惯性回车到下一个文本框问题。有的信息长度正好与maxlength相等，会自动到下一个文本框，这时再习惯性回车，就会隔过一个文本框，到下下一个文本框。如果加大maxlength,文本框的值会超过存入字段的长度。

[ 本帖最后由 shenkj001 于 2015-6-18 18:53 编辑 ]

这样可以吗?
** TextBox的LostFocus事件
IF INLIST(LASTKEY(), 9, 13)
    RETURN .T.
ENDIF
NODEFAULT
this.SelStart = 0

收到的鲜花

• shenkj001 于 2015-06-18 20:34 送鲜花  3朵  

谢谢了！我把“0”改成“this.maxlength”，这样光标到最大值时就不动了，还能用回车，解决了问题。
** TextBox的LostFocus事件
IF INLIST(LASTKEY(), 9, 13)
     RETURN .T.
 ENDIF
 NODEFAULT
 this.SelStart = this.maxlength