主题：想仿造系统菜单中的撤消和重做按扭，求助各位大侠

正在做一个输入和修改数据库的窗口，发现系统中的撤消和重做按扭很好，想在自己的窗口中实现。我尽量把问题说的清楚一些。

 

1：窗口中设置两个按扭，分别是"编辑_撤消"和"编辑_重做"（Undo和Redo），初始设置为不可用状态。

 

2：窗口中是靠控件对数据库操作的。窗口操作分为三种模式，分别是查看模式，修改模式和新增模式，用单选实现(radiobutten)。

 

3：查看模式下，绑定数据库的控件只能显示，不能修改。撤消和重做当然是不可用状态。

 

4：到修改和新增模式后，想跟据情况把 "编辑_撤消" 和 "编辑_重做" 两个按扭分别激活。激活条件是，当可以撤消编辑时，激活撤消。当可以重做时激活重做。（和系统一样）

 

5：问题一：判断table("表").Undo的值，好象只有直接对数据库进行操作时才有效，通过绑定控件，修改控件时，Undo返回总是False。该如何解决？

 

    问题二：判断绑定控件的值发生了变化的代码应该放在哪里？

    

俺是把代码放在了窗口的全局事件的ValueChanged这里，但发现不对。俺的要求是数据库的内容发生变化时，才判断是否激活，请老师和高手指教！

 

附代码：

 

Dim BJ_CX As WinForm.Button = e.Form.Controls("编辑_撤消")
Dim BJ_CZ As WinForm.Button = e.Form.Controls("编辑_重做")

 

'MessageBox.show("触发","提示 ")
If Tables("客商名录").CanUndo=True Then
   ' MessageBox.Show("可以撤消","提示 ")
    BJ_CX.Enabled=True
Else
   ' MessageBox.Show("不可以撤消","提示 ")
    BJ_CX.Enabled=False
End If
If Tables("客商名录").CanRedo=True Then
   ' MessageBox.Show("可以重做","提示 ")
    BJ_CZ.Enabled=True
Else
   ' MessageBox.show("不可以重做","提示 ")
    BJ_CZ.Enabled=False
End If

 

以上messageBox部分是为了调试时加上去的。

 

 

唉。。。窗口中的控件可以在数据库中定义吗？我刚才试了一下，

Dim BJ_CX As WinForm.Button = e.Form.Controls("编辑_撤消")
Dim BJ_CZ As WinForm.Button = e.Form.Controls("编辑_重做")

 

这两句出错了。

 

我花点时间，做个简单的例上上传吧。

您说的这个判断，我可以试试做为激活按扭的条件。

 

我还是做了个最简单的，传上来。您给看看，怎么搞。拜托啦。

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:撤消重做按扭.zip

知道了，为了这个玩意儿，俺要写上一大段代码了。

 

谢谢lin_hailun。的帮助。

俺想到了一个偷懒的方法，把绑定字段的控件都去掉，直接用记录窗口的控件，这样就是直接对表进行操作了，相信应该CanUndo和CanRedo能判断了，俺先试试，有问题再问你。

问题的关键是不知道代码写在哪里才有效果。暂时放弃了。等以后有时间写一大段代码来替代时，再说吧。