遍历集合

Question

我有一个要迭代的集合，我可以做到这一点。我想要实现的是看到集合中的下一个对象，但是我对此一无所获。

我试图在if语句中使用（+1）进行查找，但这似乎行不通。

For each a in CollBlank
   if CollBlank(a + 1) <> "some value" then
        'do code
   end if
Next

理想情况下，我希望能够向前看。

对Access-vba和excel-vba进行了标记，因为在access和excel中都使用了集合，我现在在Access中亲自使用它，但是大多数教程都是通过Excel进行的。

Answer 1

不是使用for each，而是使用带有索引变量的for循环，例如：

Dim i As Integer
For i = 0 to CollBlank.Count - 2
    If CollBlank(i + 1) <> "some value" Then
        ' Do stuff
    End If
Next i