在aftertowcolclchange 中
LPARAMETERS nColIndex
Local m_recn,m_recnnum,m_i
m_recn=recn()
M_RECNSTR=ALLTRIM(STR(m_recn))
For m_i=1 to THIS.ColumnCount
This.columns[M_I].DynamicForeColor="IIf(recn()="+M_RECNSTR+",RGB(0,255,255),RGB(255,255,225))"
This.columns[M_I].DynamicbackColor="IIf(recn()="+M_RECNSTR+",RGB(255,255,225),RGB(0,255,225))"
Endfor
This.REFRESH