create table DynamicTest (nColor n)
for lnI = 1 to 20
	append blank
	replace nColor with lnI * 200
endfor
go top
oForm = createobject('form')
oForm.AddObject('grid1', 'grid')
oForm.Grid1.RecordSource = 'DynamicTest'
oForm.Grid1.Column1.DynamicBackColor = "iif(nColor > 0, nColor, rgb(255, 255, 255))"
oForm.Grid1.Visible = .T.
oForm.Refresh()
oForm.Show(1)