对于表的列/行的只读问题,我还是没有弄明白,再次请教

[xilaianzxsc]

现有一个表单,表单上有grid2 ,此表共有6个字段

表单的init
thisform.grid2.column1.readonly= .F. &&第一列,不是只读
thisform.grid2.column2.readonly= .T.
thisform.grid2.column3.readonly= .T.
thisform.grid2.column4.readonly= .T.
thisform.grid2.column5.readonly= .F. &&第五列,不是只读
thisform.grid2.column6.readonly= .T.

通过以上设置,用户可能修改 第1、第5字段的值

此表同时有以下要求

同时,要求:

if !isnull(第六列字段) &&第六列,已经有值
那一行所有字段全部只读
endif

以上红色的，确实写不出来，请多指导。

[xilaianzxsc]

十分感谢夜猫老师。

[都市夜猫]

在表单 Init 中设置列的只读属性，不一定可靠，除非你不会在其它地方再设置 grid 的 ReadOnly 属性
一旦重设了 grid 的 ReadOnly 属性，列的只读属性也会被重置
还是放在 AfterRowColChange 事件里比较可靠，大概这样：

If IsNull(Evaluate(This.Column4.ControlSource))
	This.ReadOnly = .t.
Else
	This.ReadOnly = .f.
	This.column1.ReadOnly = .f.
	This.column2.ReadOnly = .t.
	This.column3.ReadOnly = .t.
	This.column4.ReadOnly = .t.
	This.column5.ReadOnly = .f.
	This.column6.ReadOnly = .t.
EndIf