主题：[求助]数据全都输入了还跳出警告对话框，请大红袍老师帮忙看看代码哪里有问题

数据全都输入了还跳出“数据录入不完整，请继续录入”警告对话框，请大红袍老师帮忙看看代码哪里有问题

With Tables("支付情况登记表")
    Dim nr As Row = Tables("支付情况登记表").Rows(Tables("支付情况登记表").Rows.Count -1)
    If nr("项目名称") = Nothing OrElse nr("发生日期") = Nothing OrElse nr("收款方") = Nothing OrElse nr("分类") = Nothing OrElse nr("已付金额") = Nothing
        Dim Result1 As DialogResult
        Result1 = MessageBox.Show("数据录入不完整,请继续录入!", "提示")
    Else
        Dim Result2 As DialogResult
        Result2 = MessageBox.Show("请再次确认数据是否无误,保存后将不能修改!", "提示",MessageBoxButtons.OKCancel,MessageBoxIcon.Warning )
        If Result2 = DialogResult.ok Then
            .Current.Locked = True
            .Current.Save()
        End If
    End If
End With