>Public oForm >oForm = Createobject('myForm') >oForm.Show > >Define Class myForm As Form > DataSession = 2 > Add Object myGrid As Grid > Procedure Load > Use (_samples+'data\customer') > Endproc > Procedure myGrid.BeforeRowColChange > Lparameters nColIndex > If This.RowColChange = 1 > Nodefault > Endif > Endproc >Enddefine >>Cetin
Public oForm oForm = Createobject('myForm') oForm.Show Define Class myForm As Form DataSession = 2 Add Object myGrid As Grid Procedure Load Use (_samples+'data\customer') Endproc Procedure myGrid.BeforeRowColChange Lparameters nColIndex _show, this.RowColChange if( inlist(This.RowColChange, 1,3) ) && test 3 as well Nodefault Endif Endproc Enddefine