Sergey,

PROCEDURE grid1.Click
		LOCAL lnRelCol, lnRelRow, lnWhere
		STORE 0 TO lnWhere, lnRelRow, lnRelCol
		This.GridHitTest(Thisform.nGridX, Thisform.nGridY, @lnWhere, @lnRelRow, @lnRelCol)
		IF lnWhere = 3			&& Cell
			IF lnRelCol = 3		&& column 3
				This.Columns(lnRelCol).check1.Value = NOT This.Columns(lnRelCol).check1.Value
			ENDIF
		ENDIF
	ENDPROC

if you have 2 controls in your column 3 ?

DynamicCurrentControl = [IIF( lv_AgendaPhar.lselect = .T. , 'chk_cross0' , 'chk_cross1')]

what change in your code ?


bernhart


>Check http://www.berezniker.com/content/pages/visual-foxpro/editable-checkbox-grid-allowcellselection-disabled
>
>>
>>please see the attachment.
>>
>>I should like to modify a value in a grid with Allowactivecell = .F.
>>
>>Bindevent.... is not good
>>click method on checkbox is not good...
>>
>>How turn around this problem ?
>>
>>Thank in advance
>>
>>
>>Bernhart