遍历集合

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循环，而不是使用for each，例如：

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