主题：以下方式删不掉Items值，为何呢？

For n As Integer = xmbm.Items.Count -1 To 0 Step -1

    Dim dr As DataRow = dt.Find("项目编号 = '" & xmbm.Items(n) & "'")

    If dr IsNot Nothing

        If dr("评审结果") = False Or dr("项目终止") = True Or dr("项目完成") = True

            MessageBox.show(xmbm.Items(N) )

            xmbm.Items.Remove(n)

        End If

    End If

Next