回 帖 发 新 帖 刷新版面

主题:vfp中怎样实现:表格中移动光标到未尾,按向下方向键,自动加一空记录,(当未尾记录为空值时不自动加,

vfp中怎样实现:表格中移动光标到未尾,按向下方向键,自动加一空记录,(当未尾记录为空值时不自动加,



就是像BROW时追加编辑的那样

回复列表 (共3个回复)

沙发

在grid的keypress事件中:
   >检查是否按了“向下”方向键>
        & 检查当前记录是否到底reccount?>
              & 检查activatecolumn是否最后一列>
                    & 检查是否空记录>
                           >添加空记录

板凳

设置grid的AllowAddNew为“真”
go bott
在grid的keypress事件中:
if !empt(xx).and.nKeyCode=24  &&xx为字段名
APPEND BLANK
endi

3 楼


多谢朋友们,我的问题已解决.我自己用的是grid>text.KeyPress事件:
IF nKeyCode=24
IF RECNO() =RECCOUNT() AND !EMPTY(THIS.Value)
NODEFAULT  &&&&&ºÜÖØÒªµÄÒ»µã!!!!!!!!!!!!!!!!!!!!!!!!!1
APPEND BLANK 
GO BOTTOM 
ENDIF
THISFORM.CONtainer1.GRid1.Refresh 
ENDIF

我来回复

您尚未登录,请登录后再回复。点此登录或注册