public oForm oForm = CREATEOBJECT("MyForm") oForm.Show() DEFINE CLASS MyForm AS Form ADD OBJECT MyGrid AS Grid PROCEDURE LOAD CREATE CURSOR Temp (nMes int,cMes c(15)) RAND(-1) FOR lnCounter=1 TO 20 lnMes = RAND()*11+1 INSERT INTO temp VALUES(lnMes,cMONTH(DATE(2003,lnMes,01))) ENDFOR ENDPROC PROCEDURE INIT WITH This.MyGrid .SetAll("DynamicBackColor", ; "IIF(RECNO()%2 =0,RGB(255,255,255), ; RGB(0,255,0))",; "Column") EndWith ENDPROC PROCEDURE UNLOAD USE IN SELECT("Temp") ENDPROC PROCEDURE MyGrid.AfterRowColChange LPARAMETERS nColIndex This.ReadOnly=(RECNO()%2 # 0) ENDPROC ENDDEFINEHTH