Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Scan ... endscan not working properly
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
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement