主题：请教老师,如何设计未保存提示?

你这个效果就是gdlgh所说的效果，只是编辑数据肯定能符合要求，就象你们所说通过代码变动的数据没办法撤消。

用代码也可以的！～
太晚了，如果楼主还没有解决的话，明天有空我再来看看能不能做个例子上来～

这是根本不可能的事，假设窗口某表用数据填充器提取数据，如：

dim f As New Filler
f.SourceTable = DataTables("表A")
f.DataTable = DataTables("表B")
f.Fill()

此时根本就没有可撤消的操作。

原来的：

ClearEditInfos

 

清除所有的编辑信息，使得撤销和重做按钮无效。

至于撤销行和表的修改，现在已经做好了，下次更新可以用了。

 

一天没上来,这么热闹.....似乎没看到较好的解决方法....

看看这段演示： 代码（按钮）修改时，未保存退出选择‘否’时，恢复到未修改前的状态！

此主题相关图片如下：修改后未保存推出时选择.gif

cleareditinos只是清除了撤消和重做的信息，我指的清除标记是象易表中Reset函数是功能。

老爹，这个问题在新版本怎么玩？

新版应该是这样吧。

DataTables("表A").RejectChanges()