FOR EACH loColumn IN this.Columns lcCS = 'this.' + loColumn.Name + '.ControlSource' IF TYPE(EVALUATE(lcCS)) = 'N' loColumn.DynamicBackColor = [IIF(EVALUATE(] + lcCS + [) < 10, RGB(225, 128, 128), RGB(128,255,128))] ENDIF ENDFOR