问题描述：

                在录入成绩的时候，输入两个数字，字符串长度为2，光标自动移到同一列的下一行，如下图

例如 输入 94，自动跳到下一行，
假设表格名为 grid1，grid1的来源是一张本地表，表名及字段  tblxsxxb(zc,xh,xm,zgcjlr1dm,zgcjlr2dm)

我在 column5的text1的afterrowcolchange中代码：
myrecno=RECNO()  &&当前行号
myrecc=RECCOUNT()  &&总记录数

keypress事件中代码：
IF LEN(ALLTRIM(thisform.grid1.column5.text1.value))=2 OR  nKeyCode =13
   IF myrecno>=myrecc
      messagebox("最后一行")
   ELSE
      thisform.grid1.column1.text1.Enabled = .F.
      thisform.grid1.column1.text1.ReadOnly = .T.
      thisform.grid1.column2.text1.Enabled = .F.
      thisform.grid1.column2.text1.ReadOnly = .T.
      thisform.grid1.column3.text1.Enabled = .F.
      thisform.grid1.column3.text1.ReadOnly = .T.
      thisform.grid1.column4.text1.Enabled = .F.
      thisform.grid1.column4.text1.ReadOnly = .T.
      &&thisform.grid1.column5.text1.SetFocus
      SKIP &&Keyboard '{DNARROW}'
   ENDIF
ENDIF

输入2个数字后，仍然不会下移光标，
弄了一个晚上，脑壳里都是无力感，上来求助，请大家帮忙看看吧，

拜谢！！

ps，最后一个模块了，卡死在这个环节，下周就要用，哭。。。。。。

Excel 没有办法那么灵活地进行 一录，二录 校验吧，总是有用处，Excel链接数据库太麻烦

还是回到正题，，，是不是 vfp的grid控件无法实现呢，

学生，考场信息等等都在远程数据库上，本地表只是最为临时表用，比较完 还是要把数据回传到数据库去，这个 比Excel差的不是一点点好用吧。

啥叫爱用现成的，说话这么难听，谁学习的过程不是模仿的过程呢，

问题已经解决了，只会说风凉话有啥意思。


解决思路。。。
在text1的 interracativechange
中 调用api。。。模拟回车。。。。搞定。
IF LEN(ALLTRIM(this.value))=2
Declare keybd_event In Win32API Short bVk,Short bScan,Integer dwFlags, Integer deExtraInfo
keybd_event(13, 0, 0, 0)
keybd_event(13, 0, 2, 0)
ENDIF

keypress中
LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode=13
   KeyBoard "{DnArrow}"
ENDIF

感谢 sdta 热心帮忙，又学习了一种控制表格的方法，

If Between(This.Value,10,99)
    With ThisForm.Grid1
        If .ActiveRow<Reccount()
            Keyboard '{DNARROW}'
            Go .ActiveRow+1
           .Refresh
        Endif
    EndWith   
EndIf

我相信，一定有办法可以控制，控件也有控件的好处，作为业余使用者来说，快速，学习了，感谢！

SELECT cursjcjb2   &&表格的数据源
GO RECNO()
tmpcj1=ALLTRIM(cursjcjb2.zgcjlr1dm)

DO CASE 
   CASE LEN(tmpcj1)=2
        *!*    If Between(VAL(This.Value),10,99)
        If LEN(ALLTRIM(this.Value))=2
           tmpcj2=ALLTRIM(This.Value)
           IF tmpcj1!=tmpcj2
              thisform.t_ylcj.Value=tmpcj1
              thisform.t_elcj.Value=tmpcj2
              IF MESSAGEBOX("两次成绩不想等，是否确认二录成绩？",4+32,"警告：二录成绩与一录成绩不一致！")=7
                 this.Value=""
                 this.SetFocus
                 RETURN
              ENDIF
           ENDIF
            With ThisForm.Grid1
                If .ActiveRow<Reccount()
                    &&Keyboard '{DNARROW}'
                    Go .ActiveRow+1
                   .Refresh
                ELSE
                   MESSAGEBOX("到了最后一行")
                Endif 
            ENDWITH
        ENDIF
    CASE LEN(tmpcj1)=1
        If LEN(ALLTRIM(this.Value))=1
           tmpcj2=ALLTRIM(This.Value)
           IF tmpcj1!=tmpcj2
              thisform.t_ylcj.Value=tmpcj1
              thisform.t_elcj.Value=tmpcj2
              IF MESSAGEBOX("两次成绩不想等，是否确认二录成绩？",4+32,"警告：二录成绩与一录成绩不一致！")=7
                 this.Value=""
                 this.SetFocus
                 RETURN
              ENDIF
           ENDIF
            With ThisForm.Grid1
                If .ActiveRow<Reccount()
                    &&Keyboard '{DNARROW}'
                    Go .ActiveRow+1
                   .Refresh
                ELSE
                   MESSAGEBOX("到了最后一行")
                Endif 
            ENDWITH
        ENDIF
ENDCASE    

最后的结果：一录成绩分为两种情况，个位数，和2位数
还要判断 一录成绩与二录成绩是否相等

去掉 中间的 Keyboard '{DNARROW}'
不然 不一致的时候会跳两行，
一致的时候没问题
这个应该是不影响运行效果。
还有个奇怪的事情，如果在 表单的 int实践中，对 表格控件的 height 属性进行变化，那么 表格就不会换行了，不知道是为什么，

为什么  在 最后一列的text1中的keypress中

LPARAMETERS nKeyCode, nShiftAltCtrl
IF nkeycode=13
   KeyBoard "{DnArrow}"
ENDIF

始终无法换行呢