主题：请教：嵌套循环判断删除行出错（已解决）

Dim bol2 As Boolean

For i As Integer = t.Rows.Count -1 To 0 Step -1

    bol2 = False

    Dim r As Row = t.Rows(i)

    If r.IsNull("核实情况_情况类别") = False Then

        For Each item As String In nms

            If nms.Contains(r("核实情况_情况类别")) = False Then     'nms为集合

                bol2 = True

            Else

                r.Delete()

            End If

            Exit For

        Next

        If bol2 Then

            Continue For

        End If

    End If

Next