If DataTables("基本信息表").HasChanges Then
If MessageBox.Show("表格已被修改,是否保存? ","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables("基本信息表").Save()
End If
Forms("基本信息表").Close
If MessageBox.Show("表格已被修改,是否保存? ","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Question) = DialogResult.Yes Then
DataTables("基本信息表").Save()
End If
Forms("基本信息表").Close









