代码如下：
If DataTables("表A").HasChanges Then '如果被修改
If MessageBox.Show("被修改,是否保存?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question) = DialogResult.Yes Then '如果选择是
if Tables("表A").Current("第一列") <> Tables("表A").Current("第二列") then '第一列与第二列不相等
MessageBox.Show("不平!","存盘失败",MessageBoxButtons.OK,MessageBoxIcon.Exclamation) '提示用户'
e.Cancel = True
end if
end if
end if
有时在第一列录入数据，同行第二列未录入，关闭窗口，e.Cancel能起作用，然后关闭窗口设计，点击左上角的保存后再进入窗口，在第一列输入一个数，关闭窗口只有messagebox提示而e.Cancel=TRUE 无效。试了多次不知什么原因.
[此贴子已经被作者于2009-12-8 11:35:33编辑过]
加好友 
发短信
Post By：2009/12/7 0:31:00 [只看该作者]
