Question

For Each Dr As DataRow In InvoiceDT.Rows
    Dim DrResult As Array = PaymentInvoiceDT.Select("Amount='" & Dr("Amount").ToString() & "'")
    If DrResult.Length > 0 Then
        ''some code
    Else
        InvoiceDT.Rows.remove(Dr) 
    End If
Next

它给出了错误，因为当您在datatable中更改某些内容时，其索引会发生更改。

Answer 1

您将无法在For Each循环中执行此操作，因为当您删除某些内容时，该集合已更改，您无法再枚举它。

你需要的是一个反向的For循环。

For i as Integer = Invoice.Rows.Count -1 to 0 Step -1
    Dim DrResult As Array = PaymentInvoiceDT.Select("Amount='" & Invoice.Rows(i).("Amount").ToString() & "'")
    If DrResult.Length > 0 Then
        'some code
    Else
        InvoiceDT.Rows.remove(InvoiceDT.Rows(i)) 
    End If
Next

即使在删除行时，这仍然有效，因为您没有触摸的行没有更改其索引并且它不使用枚举。

Answer 2

Sai，它失败了，因为在循环所有表行时你不应该真正删除行。

你可以做的一个例子，在C＃中就是这个：

   DataTable dt = CreateDataSource();

    DataRow[] rows = (from t in dt.AsEnumerable().Cast<DataRow>()
                      where t.Field<int>("ID") == 1
                      select t).ToArray();

    foreach (DataRow row in rows)
    {
        dt.Rows.Remove(row);
    }

因此，当您看到第一个选择要使用LINQ删除的所有行时，您只在结果行上循环并从源表中删除它们。

抱歉没有时间在VB.NET中写这个，但我希望这个想法应该清楚。

Answer 3

我的问题是我需要多次循环一个表，所以在第一轮中删除行后，它会在到达先前删除的行的索引时抛出异常。我最终克隆了表格，并将我想要保留的行复制到其中。

Dim NewInvoiceDT as DataTable = InvoiceDT.clone
For Each Dr As DataRow In InvoiceDT.Rows
    If 'some statement
        Dim NewDr as DataRow = NewInvoiceDT.Rows.Add
        NewDr.ItemArray = Dr.ItemArray
    End if  
Next

Answer 4

要遍历DataTable并有条件地删除行（例如：column_id为16的行），可以使用以下代码：

Dim iterateIndex As Integer = 0    
Dim newDataTable As DataTable = originalDataTable.Copy
For Each row As DataRow In newDataTable.Rows
   If row("column_id") = 16 Then
      originalDataTable.Rows.RemoveAt(iterateIndex)
   Else
      iterateIndex += 1
   End If
Next

Answer 5

很简单

For i = 0 To dt.Rows.Count - 1
'DO ....  then delete....
dt.Rows(0).Delete()
Next

Answer 6

您是否可以使用简单的DELETE声明删除？

DELETE FROM xxx WHERE Amount = yyy

如何在数据表上循环时删除行

6 个答案: