主题：[求助] 2处代码冲突！（项目已上传）

我有个窗口的afterload代码
 Tables("现场检查").Filter = "审核状态 = false"

 

 

和 现场检查表里的 Beforeselchange
If Tables("现场检查").Current.DataRow.RowState <> DataRowState.Unchanged Then
    MessageBox.show("该记录已经被修改,保存之前不可换行")
    e.cancel = True
End If

 

有冲突  一应用窗口就出现

此主题相关图片如下：2.jpg

 

任意删除这2处代码的其中一处 问题就会消失 什么情况？

if Tables("现场检查").Current isnot Nothing then

    If Tables("现场检查").Current.DataRow.RowState <> DataRowState.Unchanged Then
          MessageBox.show("该记录已经被修改,保存之前不可换行")
          e.cancel = True

    End if
End If

老大 应用窗口后 项目直接关闭了！

做个简单例子上传说明问题。

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

点击浏览该文件:管理项目1.rar

 

窗口在表A里面  2处冲突的代码 就在上面说的2个事件里面   应用窗口  就会出现关闭情况

这究竟什么情况啊！

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

点击浏览该文件:管理项目1.zip

 

加了一个全局变量,是逻辑型的,设置了一个条件,你看一下,窗口中的事件与表A中的事件代码就明白了,由于是开发版,为了大家学习,我将代码贴上来,红色的是我加上的.

一. 表A中表事件:BeforeSelChange中的代码,

If Vars("A")= True Then
    Return
Else
    If Tables("表A").Current.DataRow.RowState <> DataRowState.Unchanged Then
        MessageBox.show("该记录已经被修改,保存之前不可换行")
       
        e.cancel = True
    End If
End If

二.窗口:AfterLoad中:

Vars("A")= True
Tables("表A").Filter = "第一列 = 1"

三. 窗口:BeforeClose 中

Vars("A")= False

楼主用的是绑定表,如果换成其他类型的表,就不会出现冲突了,楼主可以试试

终于调试成功 多谢了~~~~~~~~~~~  

 

 

需要申明一下的是 我的这个问题 

对于窗口中的table 

独立窗口录入框输入数据的时候  想限制客户绕过保存按钮 通过换行就可以保存数据的bug情况非常好 之前就一直头疼这个问题  今天终于在杨版的帮助下解决了~~

 

 

 

有心的同学 可以去将军仓库看一下 

其独立窗口录入数据的时候  修改了数据 然后不保存 再切换行 就可以绕过保存按钮 直接保存了  窗口中的防止不保存就换行的代码就无效了（防止不保存的代码在 其上一条 下一条的按钮里面）