窗口A中的关闭窗口按钮，想要实现的功能：点击关闭按钮时，如果窗口A中的表A未作修改，窗口A直接关闭；如果窗口A中的表A已作修改，则询问是否保存表A：
1.如果点否不保存，则删除修改后未保存的行，窗口A关闭
2.如果点是则保存，并检查表A中新增的所有行中列1、列2、列3是否为空值。如果不是空值，则表A保存，窗口A关闭；如果任一列为空值，则返回窗口A,填写列1、2、3的值。
请帮我改一下代码：
If Forms("新增安全设施维保记录").opened Then
Dim nms() As String = {"维保日期","维保内容","维保人"} '不允许为空的列名
Dim dt As DataTable=Tables("新增安全设施维保记录_table1").DataTable
If MessageBox.Show("当前表已修改,是否保存?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=7 Then '如果按否,则删掉本行数据
For Each dr As DataRow In dt.DataRows
If dr.RowState = DataRowstate.added Then
dr.delete
End If
Next
Else '否则退出
For Each nm As String In nms
If dr.isnull(nm) Then
messagebox.show(nm & "维保日期/维保内容/维保人三列必须输入内容,否则请先删除无内容的行")
Return
Else
dt.save
e.Form.close
Return
End If
......
加好友 
发短信
Post By：2018/4/22 16:48:00 [只看该作者]
