在窗口中有一个table，若对表格中的内容进行多行的修改，若”退出“的时候选中需要保存的话，将对于多行的内容进行保存，若否的话，将取消对于所有修改撤销，另外的下面设置代码只能撤销当前行；
If Tables("B_Sta").Rows.Count > 0 Then
If Tables("B_Sta").Current.DataRow.RowState <> DataRowState.Unchanged Then '如果当前行已经修改过
If MessageBox.Show("当前数据已经修改过,是否保存当前单据?","提示",MessageBoxButtons.YesNo,MessageBoxIcon.Information)=7 Then '如果按否则删掉本行数据
Tables("B_Sta").Current.Reject
e.form.close
Else '否则退出
MessageBox.Show("请点击保存按钮保存","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Tables("B_Sta").save()
e.Form.close
End If
End If
End If
加好友 
发短信
Post By：2016/4/15 11:49:00 [显示全部帖子]
