Subject Re: Lookuprowset
From Peter <phb2020@hotmail.com>
Date Tue, 02 May 2023 17:55:58 -0400
Newsgroups dbase.getting-started

Carlos Pereira [APKomp] Wrote:

> 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.
 >
>
>

Thanks for your input, but I have a routine that uses seek().
I'm trying to use OODML, as Mervyn sent me.
Peter