appo = THISFORM.grdempleado


*----------------------------------------------------
appo.SetAll("dynamicbackcolor", "", "Column")
appo.SetAll("dynamicforecolor", "", "Column")

&& Sirve para dar color al grid  por medio a las filas
appo.SetAll("dynamicbackcolor", ;
"IIF(RECNO()%2 = 0,RGB(255,255,0), RGB(255,255,255))", "Column")

*----------------------------------------------------
&&Para darle color al grid segun condicion
appo.SetAll("dynamicforecolor", ;
	"IIF(edad > 19, RGB(255,255,255), RGB(0,0,0))", "Column")
appo.SetAll("dynamicbackcolor", ;
	"IIF(edad > 19, RGB(255,0,0), RGB(255,255,255))", "Column")
*----------------------------------------------------

&&darle color como el juego de agredres
		appo.SetAll("dynamicforecolor", "RGB(255,255,255)", "Column")
		FOR i = 1 TO appo.ColumnCount
			IF i % 2 = 0
				appo.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(255,010,0), RGB(100,0,0))"
			ELSE
				appo.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(100,0,0), RGB(255,010,0))"
			ENDIF
		ENDFOR
*----------------------------------------------------

appo.Refresh


&& foxjose
&& http://foxjosejoya.galeon.com