问题描述：

                在录入成绩的时候，输入两个数字，字符串长度为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 没有办法那么灵活地进行 一录，二录 校验吧，总是有用处，Excel链接数据库太麻烦

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

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

爱用现成的，就必然会在微小变动上卡壳。要做到你所想的，并不难，哪有vfp编程不比excel好用之理。

[ 本帖最后由 TonyDeng 于 2014-12-5 00:02 编辑 ]

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

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


解决思路。。。
在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

良药苦口，忠言逆耳。话虽然不中听，但道出关键所在：用现成的控件必定会受到某些限制的，因为控件制作时很难做到满足所有人的需求。解决的办法通常有：一是绕道而走，如楼主的解决办法；二是重起炉灶，但需要一定的功底。

年轻气盛，在所难免，忠言逆耳利于行，苦口良药利于病。^o^