For Each Loop 错误：集合已修改；枚举操作可能无法执行

Question

我在循环数据行时遇到错误。我搜索了SO并尝试了解决方案，但没有运气。

集合已修改；枚举操作可能无法执行。

    Dim dRow As DataRow
    For Each dRow In dt.Rows
        dt.Rows.Add(dRow("CustNum"), dRow("SalesRepName"), dRow("mgrid"), "=""" & dRow("midValue") & """", dRow("dba"), dRow("sysDate"), dRow("statusID"))
    Next  

代码第一次点击“Next”时会发生错误
导致 Collection 的原因被修改；枚举操作可能无法执行。如何解决此错误？

Answer 1

更新集合时无法枚举集合。即使这段代码确实有效，它也会永远运行，因为您不断添加越来越多的行，并且它会不断枚举它们。

您可以稍微改变您的方法，并通过使用带有索引计数器和固定上限的 for 循环来实现此目的。

像这样的东西应该有效：

Dim rowCount As Integer = dt.Rows.Count  ' Set upper bound = original row count
Dim index as Integer
For index = 0 To rowCount - 1  ' Iterate through the original set of rows
    Dim dRow as DataRow = dt.Rows.Item(index)  ' Get row by index
    dt.Rows.Add(dRow("CustNum"), dRow("SalesRepName"), dRow("mgrid"), "=""" & dRow("midValue") & """", dRow("dba"), dRow("sysDate"), dRow("statusID"))
Next index

Answer 2

您正在将项目添加到您正在枚举的集合中。从逻辑上讲，它会无限循环。这种情况是不可能出现的。如果您确实打算这样做，请通过为数据创建 Structure 或 Class 将其分成两部分，将项目添加到列表中，然后循环列表并添加将物品放到桌子上。