LOCAL lcAlias, lcControlSource WITH This IF ! EMPTY( .cControlSource ) lcAlias = JUSTSTEM( .cControlSource ) IF UPPER( LEFT( lcAlias, 4 ) ) == 'THIS' lcControlSource = .cControlSource STORE .DisplayValue TO &lcControlSource ELSE REPLACE ( .cControlSource ) WITH .DisplayValue IN ( lcAlias ) ENDIF ENDIF ENDWITH