Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Puzzle: Works in FPW26, but how2 in VFP9?
Message
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Puzzle: Works in FPW26, but how2 in VFP9?
Miscellaneous
Thread ID:
01326197
Message ID:
01326197
Views:
63
Hi all,
I've got an old FPW26 app I'd like to simply recompile in VFP9 as the first step to conversion. Here's some code that displays to users a list of records, current and others, that when clicked on will change display to values of another record.

This code works in FPW26, but not when run by VFP9. The FPW26 debugger will also trace properly BUT I can't get the VFP9 debugger to trace into it.

I'd of course like to not change any code if possible and simply run in VFP9. Am I outta luck?

Thanks,
Steven-
*-[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
Next
Reply
Map
View

Click here to load this message in the networking platform