如何控制在grid中不能移動記錄?
對一對多2個grid操作,修改時,不想讓用戶在主grid中移動記錄,如何實現?
就是不能上下移動,但是在字段之間左右還是可以移動的
---------------------------------------------------------------
VFP7.0以上:
1、设一个全局变量,初始值为.T.
PUBLIC plRowMove
plRowMove=.T.
2、主Grid的BeforeRowColChange事件:
LPARAMETERS nColIndex &&系统代码
IF (THIS.RowColChange=1 OR THIS.RowColChange=3) AND plRowMove=.F.
NODEFAULT
ENDIF
3、不允许行移动:
plRowMove=.F.
允许行移动:
plRowMove=.T.
因为 VFP7.0 以下 Grid 没有 RowColChange 属性,所以只能用以下方法:
此种方法其实记录已经移到其他行了,后来又移回来了,所以会来回闪动。
1、表单的Load事件:
PUBLIC nRecno
nRecno=1
2、表单的Unload事件:
RELEASE nRecno
3、主Grid的AfterRowColChange事件:
LPARAMETERS nColIndex &&系统代码
GO nRecno &&动态改态变量nRecno的值即可