FOR EACH oCol IN thisform.Grid12.Columns oCol.DynamicBackColor = [IIF(]+oCol.ControlSource+[ > 0, RGB(0,255,0), RGB(255,0,0))] NEXTOf course this is only if all columns have numeric fields as control source.
PUBLIC oForm1 oForm1=NEWOBJECT("form1") oForm1.Show RETURN DEFINE CLASS form1 AS Form DoCreate = .T. lbopenconfig = .F. Name = "form1" ADD OBJECT grid1 AS grid WITH ; Height = 200, ; Left = 21, ; Top = 39, ; Width = 320, ; Name = "Grid1" PROCEDURE Init FOR EACH oCol IN thisform.Grid1.Columns oCol.DynamicBackColor = [IIF(]+oCol.ControlSource+[ > 0, RGB(0,255,0), RGB(255,0,0))] NEXT ENDPROC PROCEDURE Load CREATE CURSOR crsTest (Fld1 I, Fld2 I, Fld3 I) FOR asd = 1 TO 20 INSERT INTO crsTest VALUES (asd, -asd,asd * IIF(asd%2==0,1, -1)) NEXT GO TOP ENDPROC ENDDEFINE