程序代码：

Create Cursor T (A1 N(4),A2 N(4),A3 N(4))
Insert Into T Values (10,100,1000)
Insert Into T Values (1000,10,100)
Insert Into T Values (100,1000,10)
Go Top 
With ThisForm.Grid1
     .ColumnCount=Fcount("T")
     .RecordSource="T"
     .RecordSourceType=1
     For lnI=1 To .ColumnCount
         myField=Field(lnI)
         .Columns(lnI).DynamicForeColor="Iif(&myField<=10,Rgb(255,0,0),Rgb(0,0,0))"
     EndFor
     .Refresh
EndWith

Thisform.Grid1.Column2.DynamicForeColor="IIf(一工位='w',RGB(225,0,0),RGB(0,0,124))"