THIS.icSource=;
"SELECT par_code,par_valx1 ;
FROM par ;
INTO CURSOR lookupcur;
ORDER BY par_code ;
WHERE par_type = THIS.icLookupKey"
THIS.RowSource = THIS.icSource
<strong>THIS.value = lookupcur.par_code</strong>
THIS.Requery()