If DataTables("B_Sta").HasChanges Then '如果当前行已经修改过 If MessageBox.Show("当前数据已经修改过,是否保存当前单据?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=7 Then '如果按否则删掉本行数据 DataTables("B_Sta").RejectChanges e.form.close Else '否则退出 MessageBox.Show("请点击保存按钮保存","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) DataTables("B_Sta").save() e.Form.close End If End If