如何控制Grid只能移动列,不能移动行。

如何控制在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的值即可

Published At
Categories with 数据库类
comments powered by Disqus