2

我解析了一个 Excel 电子表格,并将整个结果作为 DataTable 返回。但是,这个 Excel 电子表格有几个空行,我想从生成的 DataTable 中删除它们。特别是,每个空行都以一个空单元格开始。所以,我知道如果第一个索引处的单元格的值为空,则整行都是空的。请注意,我不能简单地修改 Excel 电子表格,因为我必须准确地处理客户发送给我的内容。基于这些信息,我假设我可以执行以下函数来删除空行:

' DataTable dt has already been populated with the data

For Each row As DataRow In dt.Rows
    If dt.Rows.Item(0).ToString = "" Then
        dt.Rows.Remove(row)
    ElseIf dt.Rows.Item(0) Is Nothing Then
        dt.Rows.Remove(row)
    End If
Next

但是,在制定此解决方案后,我收到以下错误:

Collection was modified; enumeration operation might not execute.

我现在意识到我无法在访问集合时更改它。我怎样才能解决这个问题?我想知道是否应该使用非空行创建一个新的 DataTable。这是最好的方法还是有更好的选择?

编辑:我也尝试过向后迭代行:

For i = dt.Rows.Count() - 1 To 0
    If dt.Rows.Item(i).Item(0).ToString = "" Then
        dt.Rows.RemoveAt(i)
    End If
Next
4

2 回答 2

6

使用 枚举集合时不能修改集合For Each,但可以使用一个简单的For循环。您需要向后循环以避免在删除的行之后跳过该行。

你的测试也是错误的;如果Item(0)返回NothingItem(0).ToString则将抛出一个NullReferenceException.

我假设这dt.Rows.Item(0)是一个错字,应该改为阅读row.Item(0)

For i As Integer = dt.Rows.Count - 1 To 0 Step -1
    Dim row As DataRow = dt.Rows(i)
    If row.Item(0) Is Nothing Then
       dt.Rows.Remove(row)
    ElseIf row.Item(0).ToString = "" Then
       dt.Rows.Remove(row)
    End If
Next
于 2012-12-20T19:02:31.127 回答
0

Vb.Net 使用 linq

 Dtset.Tables(0).AsEnumerable().Where(Function(row) row.ItemArray.All(Function(field) field Is Nothing Or field Is DBNull.Value Or field.Equals(""))).ToList().ForEach(Sub(row) row.Delete())
        Dtset.Tables(0).AcceptChanges()
于 2019-07-29T06:53:40.783 回答