Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
How to use Free Table in SCAN clause
Message
De
29/08/2003 11:30:43
 
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
How to use Free Table in SCAN clause
Divers
Thread ID:
00824579
Message ID:
00824579
Vues:
56
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
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform