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