主题：[求助]重复值、空值，怎样才能弹出警告窗

Dim fdr As DataRow = DataTables("表A").Find("计划单号 = '" & e.Sender.Text & "'")

If fdr IsNot Nothing Then

    msgbox("单号已存在")

    e.Cancel = True

End If