General information
Category:
Coding, syntax & commands
Title:
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
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only