**** 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