代码放到datacolchanging事件
Select Case e.DataCol.Name
Case "供应商名称"
'选择no后,恢复
Dim Result As DialogResult
Result = MessageBox.Show("是否把" & e.OldValue & "修改为" & e.NewValue & "?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.NO Then
e.cancel=true
Else
e.datarow.save
End If
End Select