程序代码：

*表单LOAD事件
CREATE CURSOR LSB (BH N(1))
FOR I=0 TO 4
    INSERT INTO LSB VALUES (I)
ENDFOR
GO TOP
*表格控件INIT事件
WITH THIS
   .ColumnCount=1
   .RecordSource =[LSB]
   .RecordSourceType =1
   .Columns(1).DynamicBackColor=[IIF(BH=0,RGB(255,0,0),IIF(BH=1,RGB(128,128,255),IIF(BH=2,RGB(255,128,128),RGB(0,0,255))))]
ENDWITH
* 假如一列中有4个数字，就写3个条件

程序代码：

WITH THIS
   .ColumnCount=1
   .RecordSource =[LSB]
   .RecordSourceType =1
   .Columns(1).DynamicBackColor=[ICASE(BH=0,RGB(255,0,0),BH=1,RGB(128,128,255),BH=2,RGB(255,128,128),BH=3,RGB(0,255,255),RGB(128,128,128))] 
ENDWITH