This.AddProperty('cSourceAlias', '') with This .mQuery() if !empty(.ControlSource) local lnResult, luValue lnResult = 1 luValue = eval(.ControlSource) lnResult = ascan(.aList, luValue) if lnResult = 0 .mAddItem(luValue) endif .DisplayValue = luValue .Value = luValue if at(".", .ControlSource) > 0 local lcAlias lcAlias = juststem(.ControlSource) if !empty(lcAlias) and used(lcAlias) .nRecord = 0 endif .cSourceAlias = lcAlias endif endif .Requery() endwith