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

1、录入计划单号时，如果单号已经存在，弹出警告窗口。是在validating写代码嘛？

此主题相关图片如下：计划单录入 空行 提示.jpg

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

If fdr IsNot Nothing Then

    msgbox("单号已存在")

    e.Cancel = True

End If

If e.Form.Controls("TextBox1").Text = Nothing Then

    msgbox("工程名称没填写")

    return

End If

If e.Form.Controls("TextBox2").Text = Nothing Then

    msgbox("计划编号没填写")

    return

End If

 

For Each r As Row In Tables("表A").rows
    For Each c As Col In Tables("表A").cols
        If r.IsNull(c.name) Then
            msgbox(r.index+1 & "行" & c.name & "列为空")
            Return
        End If
    Next
Next

如果“材料名称”、“规格型号”、“单位”、“数量”，这4列不可以为空。其他两列可以试空的，代码该怎么写

Dim cs() As String = {"材料名称", "规格型号", "单位", "数量"}

For Each r As Row In Tables("表A").rows
    For Each c As String in cs
        If r.IsNull(c) Then
            msgbox(r.index+1 & "行" & c & "列为空")
            Return
        End If
    Next
Next

“数量”列，为了防止误输，负数或者零值，在表格的ValidateEdit写以下代码，但出现错误提示框？
此主题相关图片如下：计划单录入 数量少于0 显示警告.jpg

Dim fdr As DataRow = DataTables("表A").Find("计划单号 = '" & e.Sender.Text & "'") If fdr IsNot Nothing Then     msgbox("单号已存在")     e.Cancel = True End If 请问这个代码是在按钮Click中添加吗？

回复8楼，单号控件的 Validating 事件

上面的代码，输入什么数值，都会弹窗警告。因为有e.Cancel = True，还一直在弹。不知道是什么原因，求解答？