oGrd.SetAll("dynamicforecolor", "RGB(255,255,255)", "Column") FOR i = 1 TO oGrd.ColumnCount IF i % 2 = 0 oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(255,0,0), RGB(0,0,0))" ELSE oGrd.Columns(i).dynamicbackcolor = "IIF(RECNO()%2 = 0, RGB(0,0,0), RGB(255,0,0))" ENDIF ENDFOR