请教:如何使表格的最后一列里输入 2个数字后自动换行

时间:2023-02-11 10:23:46
问题描述:

                在录入成绩的时候,输入两个数字,字符串长度为2,光标自动移到同一列的下一行,如下图
请教:如何使表格的最后一列里输入 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,最后一个模块了,卡死在这个环节,下周就要用,哭。。。。。。

3 个解决方案

#1


见http://bbs.bccn.net/thread-439593-1-1.html回帖

#2


引用 1 楼 lygcw9602 的回复:
见http://bbs.bccn.net/thread-439593-1-1.html回帖

呵呵,那边人气似乎比较旺,
谢谢了,问题应解决。

#3


那边帖子即本人所发(sdta)
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧

#1


见http://bbs.bccn.net/thread-439593-1-1.html回帖

#2


引用 1 楼 lygcw9602 的回复:
见http://bbs.bccn.net/thread-439593-1-1.html回帖

呵呵,那边人气似乎比较旺,
谢谢了,问题应解决。

#3


那边帖子即本人所发(sdta)
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧