Question

在我的程序中，我遍历excel文件中的记录以创建数据表。然后我需要做一些额外的数据维护，这是我在第一个循环中无法做到的。

我试图找出循环现有数据表的最佳方法，以删除具有重复值的行，同时保留其他行。

在我的示例表中，我有三列。对于每个CompanyCode，我需要删除重复的BillingItem并保持最高的FeeAmount。因此，对于CompanyCode 1234，我们需要删除第一行和第二行，并保留第四行。

这些值并不总是以相同的顺序排列。

+-------------+-----------+-------------+
| CompanyCode | FeeAmount | BillingItem |
+-------------+-----------+-------------+
|        1234 |        10 | A           |
|        1234 |        10 | A           |
|        1234 |        15 | B           |
|        1234 |        20 | A           |
|        9876 |        10 | A           |
|        9876 |        20 | B           |
|        9876 |        30 | A           |
|        9876 |        30 | A           |
+-------------+-----------+-------------+

当我进入循环时，我收到错误：“收集已被修改;枚举操作可能无法执行。”下面是我的循环代码。

For Each loRow In dt.Rows

    Dim liDupeCount As Integer = 0
    liCompanyCode = loRow(0)
    ldFeeAmount = loRow(1)
    lsBillingItem = loRow(2)

    Dim dupeFeeAmounts() As DataRow = dt.Select("CompanyCode = '" & liCompanyCode & "' and FeeAmount = '" & ldFeeAmount & "' and BillingItem = '" & lsBillingItem.Replace("'", "''") & "'")

    For Each row As DataRow In dupeFeeAmounts
        liDupeCount += 1
    Next

    If liDupeCount > 1 Then
        dt.Rows(liRowCount).Delete()
    End If      
    liRowCount += 1

Next

Answer 1

您无法删除循环内使用数据表进行迭代的行，并删除相同的表行导致收集错误，

循环集中在启动循环时数据表的行数，如果删除行，则行数减少，与循环集中计数和数据表计数不匹配。

循环数据表时出错

1 个答案: