sergey,


i understand now...


when you lock a grid , the nummer of the column are negatif.

for each grid i must now determine the new properties ncola

 **** IF lnRelCol = 1		&& column #1
    * this.ncola doit contenir la valeur booléenne. ( check1 )
    IF INLIST( lnRelCol , THIS.ncola )

for total ( for not move the record of the view )

 CASE lcAction = "S"
   *!*	   lnCurRecNo = RECNO()
   *!*	   CALCULATE CNT() TO .nChosenRows IN .RECORDSOURCE FOR EVALUATE(.Column1.Check1.CONTROLSOURCE)
   *!*	   GO MIN(lnCurRecNo, RECCOUNT())


   *!*	   .setAvailableCount()
     m.nValue = 'lselect = .T. '

   SELECT COUNT( RECNO() ) AS lnCnt , SUM( ICASE( EVALUATE( m.nValue )  , +1 , 0 )) AS test ;
    FROM ( .RECORDSOURCE ) WITH ( BUFFERING = .T. ) ;
    WHERE !DELETED() INTO CURSOR temp

   .nChosenRows = temp.test

   .nAvailableRows = temp.lnCnt