“集合已修改；”。。。但事实并非如此

Question

我有一个对象列表：

Dim objList As BindingList(Of Object1)

每一个都包含一个Object2列表。我试图遍历objList，以便从每个Object1各自的Object2列表中删除Object2的特定实例：

For Each obj In objList
    Dim objRemove = obj.Object2List.Where(AddressOf ObjCheck)
    For Each obj2 In objRemove
        obj.Object2List.Remove(obj2)
    Next
Next

这会引发错误：“集合已修改；枚举操作可能无法执行。”

我不明白的是，我正在从Object2List中删除一个对象，它没有被枚举。为什么会抛出此错误？

Answer 1

在这种情况下，您只是间接枚举Object2List。集合内部包含对Object2List的引用，枚举Object2List也会隐式枚举Object2List

解决此问题的最简单方法是按索引枚举集合

Dim index = 0
Dim list = obj.Object2List
While index < list.Count
  If ObjCheck list(index) Then
    list.RemoveAt(index)
  Else
    index = index + 1
End

Answer 2

调用Where实际上不会执行查询并创建新集合。它只是创建一个迭代器，迭代原始列表，跳过与查询不匹配的元素。

您需要添加对ToList（）的调用，以立即执行查询并创建新的项目集合：

Dim objRemove = obj.Object2List.Where(AddressOf ObjCheck).ToList()