Plateforme Level Extreme
Abonnement
Profil corporatif
Produits & Services
Support
Légal
English
Scan ... endscan not working properly
Message
 
À
Tous
Information générale
Forum:
Visual FoxPro
Catégorie:
Codage, syntaxe et commandes
Titre:
Scan ... endscan not working properly
Divers
Thread ID:
00411108
Message ID:
00411108
Vues:
36
When I am going though the following code, my scan...endscan only seems to loop through once. I have over 200 records and my table is a free table. Anyone have a clue what is going on?


With thisform
local r
use trial
go top
scan
r = recno()
if trial.min_sex = 'F'
update trial set min_f = .t. where recno() = r
update trial set min_m = .f. where recno() = r
endif
if trial.min_sex = 'M'
update trial set min_f = .t. where recno() = r
update trial set min_m = .f. where recno() = r
endif

endscan
endwith


Thanks Nick
Suivant
Répondre
Fil
Voir

Click here to load this message in the networking platform