在录入成绩的时候,输入两个数字,字符串长度为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
呵呵,那边人气似乎比较旺,
谢谢了,问题应解决。
#3
那边帖子即本人所发(sdta)
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧
#1
见http://bbs.bccn.net/thread-439593-1-1.html回帖
#2
呵呵,那边人气似乎比较旺,
谢谢了,问题应解决。
#3
那边帖子即本人所发(sdta)
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧
最近这边的大腕们,对VFP不是太热心了。可能是太冷的缘故吧