*-[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