#DEFINE COLOR_GREEN 0x008000 #DEFINE COLOR_WHITE 0xFFFFFF CREATE CURSOR mygrid_recordSource (UPSINO C(5)) FOR k=1 TO 10 FOR j=1 TO 5*RAND() INSERT INTO mygrid_recordSource VALUES (TRANSFORM(m.k,"@L 99999")) NEXT NEXT BROWSE * Solution 1: 1 STEP: uses RECNO(),SELECT() is SQL command is out of VFP support, * but for GROUP BY it is deterministic because VFP allocate the result name SELECT UPSINO; , IIF(EMPTY(RECNO(SELECT('mygridAttributes'))%2),COLOR_WHITE,COLOR_GREEN) AS BackColor ; FROM mygrid_recordSource ; && mygrid.recordSource GROUP BY 1 ; INTO CURSOR mygridAttributes * Solution 2: 2 STEPS: standard and faster if buffering is disabled SELECT UPSINO,COLOR_GREEN AS BackColor ; FROM mygrid_recordSource ; && mygrid.recordSource GROUP BY 1 ; INTO CURSOR mygridAttributes READWRITE REPLACE NOOPTIMIZE FOR EMPTY(RECNO()%2) BackColor WITH COLOR_WHITE BROWSE * prepare for correlation INDEX ON UPSINO TAG TG1 SET RELATION TO UPSINO INTO mygridAttributes IN mygrid_recordSource && mygrid.recordSource * mygrid.SETALL("DYNAMICBACKCOLOR", "mygridAttributes.BackColor", "COLUMN") * Check SELECT mygrid_recordSource SET FIELDS GLOBAL SET FIELDS TO ALL SET FIELDS TO mygridAttributes.BackColor BROWSE SET FIELDS OFF