>*-[Populate a 2dim array: text, numeric]----------------* >laTxt[1,1]="First Text" >laTxt[1,2]= nFirstRec >laTxt[2,1]="Second Text" >laTxt[2,2]= nSecondRec > >*-[Get mVars]-------------------------------------------* >@<r>,<c> GET mVar1 >@<r>,<c> GET mVar2 >@<r>,<c> GET mVar3 >@<r>,<c> GET cTxt FROM laTxt SIZE 4,18 FUNCTION '&N' DEFAULT <alias.cField> ; > VALID JumpToThisTXT(cTxt) ; > WHEN <something>=.T. ; > MESSAGE "[Dbl-Click] or [Enter] to display, [Tab] or [Ctrl+Tab] for next/previous field" > >READ > > > >*------------------------------------------- >FUNCTION JumpToThisTXT >PARAMETER jcTxt > >GO (laTxt[ASUBSCRIPT(laTxt, ASCAN(laTxt, jcTxt), 1), 2]) >SCATTER MEMVAR MEMO >mVar1=<alias.c1> >mVar2=<alias.c2> >mVar3=<alias.c3> >SHOW GETS ONLY >