for each loops

[adncmm1980]

Dear all

If you have more than one for each loop in a procedure, how can I ge
my procedure to loop back to the first loop instead of the last.

Regards

Andrew

:confused

 

[Nacho Nachev]

AFAIK, the VB language does not support it. Use a flag to determine the
exit. e.g.:

dim bExit as boolean
bExit = false
For each a in as_collection
for each b in bs_collection
If [condition to exit] Then
bExit = True
Exit For
End If
next b

If bExit = True then
Exit For
End If
Next a


HTH,
Nacho