Subject Re: Lookuprowset From Carlos Pereira [APKomp] <carlos.pereira@apkomp.pt> Date Tue, 2 May 2023 19:24:37 +0100 Newsgroups dbase.getting-started Why not just:     this.ENTRYFIELDx = new ENTRYFIELD(this)     with (this.ENTRYFIELDx)        //...        onChange = class::ENTRYFIELDx_ONCHANGE        //...     endwith     Procedure ENTRYFIELDx_OnChange     *     wvarinput1=""     wvarreturn1=""     //...     wfound=" "     *     CLASS::valEntryfieldx()     *     IF wfound="S"       * replaces       //...       * focus object ...       KEYBOARD "{Home}{Tab}{Tab}"       *     ELSE       * replaces or nothing       //...       * focus object ...       KEYBOARD "{Home}"       *     ENDIF     *     RETURN     PROCEDURE valEntryfieldx(wprov)     *     CREATE SESSION     *     USE ... ORDER ... ALIAS ...     SELECT ...     GOTO TOP     IF SEEK(wvarinput1)=.T.       wvarreturn1=...          //...       wfound="S"     ELSE       wvarreturn1=...=""       //...       wfound="N"     ENDIF     USE IN ...     *     RETURN .T.