代码写到 beforeClose 事件

Dim nms() As String = {"开标日期","项目名称","业务性质","评标方式","开标地址"}   \'不允许为空的列名
Dim dl As Row = Tables("代理招标信息").Current
For Each nm As String  In nms
    If dl.IsNull(nm) Then
        Messagebox.Show(nm & "必须输入内容")

        e.Cancel = True
        Return
    End If
Next