LOCAL m_activecoll local lnColor, cfld lnColor = rgb( 0, 0, 0 ) m_activecoll = thisform.GrdInvRes.ActiveColumn IF m_activecoll # 0 cfld = EVALUATE(FIELD(m_activecoll,"xtabresult")) IF TYPE("cfld") do case case cfld = 'NEG' lnColor = rgb( 255, 0, 0 ) case cfld $ 'POS AFF' lnColor = rgb( 0, 255, 0 ) endcase ENDIF ENDIF return lnColor