Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
How to use Free Table in SCAN clause
Message
From
29/08/2003 11:30:43
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
How to use Free Table in SCAN clause
Miscellaneous
Thread ID:
00824579
Message ID:
00824579
Views:
58
I'm a FoxPro Newbie, if you all haven't gleaned that fact yet. I'm executing a tiny .PRG file with SCAN clause, that is not displaying commands against a Free Table from my project (.PRG code below):

LOCAL l_cls_hno_av, l_pjid
CLOSE databases
USE "E:\DD_Data8\Lar_sum.dbf"

SCAN
l_cls_hno_av = ALLTRIM(cls)+ALLTRIM(STR(INT(VAL(hno))))+ALLTRIM(avail)+RIGHT(STR(INT(fy)),2)
WAIT l_cls_hno_av WINDOW AT 50,50 TIMEOUT 3
SELECT pj_id FROM DD_Proj WHERE pj_pcode = l_cls_hno_av INTO ARRAY l_pjid
WAIT l_pjid[1,1] WINDOW AT 50,50 TIMEOUT 3
ENDSCAN


*** Nothing at all is being displayed, and I have to CANCEL PROGRAM to bail out. What's going on here? To reiterate Lar_sum is a Free Table I've added to the project; it's not contained in .DBC. When I used one of my .DBC contained tables it works; values from table displayed fine (see below):

CLOSE databases
OPEN DATABASE "E:\DD_Data8\dd.dbc"
USE DD_Proj

SCAN
WAIT pj_id WINDOW AT 50,50 TIMEOUT 3
WAIT pj_pcode WINDOW AT 50,50 TIMEOUT 3
ENDSCAN


Thanks,

Fred Z
Don
Next
Reply
Map
View

Click here to load this message in the networking platform