devxlogo

Enumerate Collections With For Each…Next

Enumerate Collections With For Each…Next

It’s faster to enumerate a collection with the For each…Next statetment:

 Dim c As Class1    For Each c In Col        'Code...    NextDim fldField As ADODB.Field    For Each fldField In rsTemp        'Code...    NextDim LI As ListItem    For Each LI In ListView1.ListItems        'Code...    Next

size=3>
To find out the index while enumerating, use a variable:

 Dim c As Class1Dim Index as long    For Each c In Col        Index= Index + 1        'Code...    Next

size=3>
Or, for zero based collections:

 Dim c As Class1Dim Index as long    For Each c In Col        'Code...        Index= Index + 1    Next

size=3>

devx-admin

Share the Post: