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
e.form.close
[此贴子已经被作者于2018/4/22 20:29:53编辑过]