Problem with repeat until loop
Posted: Sun Nov 02, 2008 5:35 pm
I am using the following code in one of my projects, and it does'nt work:
on mouseUp
put 1 into F
repeat until F=7
get char 1 to 6 of field "flowernumber"
put it into mynum
get char 1 to 6 of field "dat1" of stack "flowerdb"
put it into yournum
if mynum=yournum then
get char 1 to 85 of field "dat1" of stack "flowerdb"
put it into field "reportt" of stack "entrypage"
go to stack "entrypage"
else
put "" into field "rang"
put "" into field "reportt"
get char 1 to 6 of field "flowernumber"
put it into C
get char 4 of dat1
put it into B
put ( B + 1) into F
put F into field "rang" of stack "entrypage"
put "No match could be found for entry number" &C into field "reportt"
go to stack "entrypage"
end if
end repeat
end mouseUp
If I remove the repeat loop the code works just fine. The problem is with the command "repeat until F = 7" , but I don't know how to fix it.
I appreciate any help I can get.
Willie Bruce Underwood
bruceu@embarqmail.com
on mouseUp
put 1 into F
repeat until F=7
get char 1 to 6 of field "flowernumber"
put it into mynum
get char 1 to 6 of field "dat1" of stack "flowerdb"
put it into yournum
if mynum=yournum then
get char 1 to 85 of field "dat1" of stack "flowerdb"
put it into field "reportt" of stack "entrypage"
go to stack "entrypage"
else
put "" into field "rang"
put "" into field "reportt"
get char 1 to 6 of field "flowernumber"
put it into C
get char 4 of dat1
put it into B
put ( B + 1) into F
put F into field "rang" of stack "entrypage"
put "No match could be found for entry number" &C into field "reportt"
go to stack "entrypage"
end if
end repeat
end mouseUp
If I remove the repeat loop the code works just fine. The problem is with the command "repeat until F = 7" , but I don't know how to fix it.
I appreciate any help I can get.
Willie Bruce Underwood
bruceu@embarqmail.com