主题：防止出现重要单元格出现空值现象

代码写到 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