Robert, You must put this ONLY for Numeric column(s) not for all. As I see now I think you want to do this OPNLY for Columns6 (Am I wrong?) If so there is no need of loop just:

select pay
Go top
Thisform.grid1.recordsource='pay'
Thisform.grid1.COLUMN1.CONTROLSOURCE="pay.accno"
Thisform.grid1.COLUMN2.CONTROLSOURCE="pay.name"
Thisform.grid1.COLUMN3.CONTROLSOURCE="pay.desi"
Thisform.grid1.COLUMN5.CONTROLSOURCE="pay.srno"
Thisform.grid1.COLUMN6.CONTROLSOURCE="pay.wday"

&& nvalue=thisform.text1.value && this is constant value not changed during scrolling

Thisform.grid1.COLUMN6.DynamicForeColor = [IIF(pay.wday < thisform.text1.value, RGB(255,0,0), RGB(0,0,255))]

The value is constant during the scrolling but what happens if you change the value of thisform.text1?



Or
>Dear Professor
>
>I send data in grid as
>
>These codes are behind command1
>

>select pay
>Go top
>Thisform.grid1.recordsource='pay'
>Thisform.grid1.COLUMN1.CONTROLSOURCE="pay.accno"
>Thisform.grid1.COLUMN2.CONTROLSOURCE="pay.name"
>Thisform.grid1.COLUMN3.CONTROLSOURCE="pay.desi"
>Thisform.grid1.COLUMN5.CONTROLSOURCE="pay.srno"
>Thisform.grid1.COLUMN6.CONTROLSOURCE="pay.wday"
>
>nvalue=thisform.text1.value && this is constant value not changed during scrolling
>
>FOR EACH oColumn IN thisform.Grid1.ColumnS && :o)))
>    oColumn.DynamicForeColor = [IIF(]+oColumn.ControlSource+[ < ]+TRANSFORM(m.nValue)+[, RGB(255,0,0), RGB(0,0,255))]
>ENDFOR
>

>When I press command1 it show following error message
>

>Expression is invalid, use a valid expression for DYNAMICFORECOLOR property
>

>
>I want to apply your codes only with column6.
>
>What is wrong? where should I write your codes?
>
>Please help again