主题：窗口关闭按钮

Dim nms() As String = {"维保日期","维保内容","维保人"}   '不允许为空的列名
Dim dt As DataTable=Tables("新增安全设施维保记录_table1").DataTable
If dt.HasChanges Then
    If MessageBox.Show("当前表已修改,是否保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=DialogResult.Yes Then '如果按否,则删掉本行数据
        For Each dr As DataRow In dt.datarows
            For Each nm As String  In nms
                If dr.isnull(nm) Then
                    messagebox.show(nm & "维保日期/维保内容/维保人三列必须输入内容,否则请先删除无内容的行")
                    Return
                End If
            Next
        next
        dt.save
       
    End If
End If