主题：[求助]同样的代码不同的表，存在执行差

If DataTables("订单").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then

    Return '那么返回

End If

Dim Result1 As DialogResult

Result1 = Messagebox.Show("本次登记的业务数据不完整,按""否""将为你选出未登记未整的业务,按""是""将不会保存未完整的数据,确定要关闭平台吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)

If Result1 = DialogResult.No Then

    e.Cancel = True '取消关闭项目

    Tables("订单").Filter = "[发生日期] Is Null or [产品] Is Null or [客户] Is Null"

    MainTable = Tables("订单")  

 

End If

上述代码应该没问题，在项目BeforeCloseProject能执行，可是相同的在其他表里却不能执行该代码，关闭项目就直接关闭了，没有判断行为

  e.Cancel = True 不是直接关闭了吗?

我表述不清楚？我就是有空值 ，不符合的条件的时候，直接关闭，它就关了，不会有判断

 呃，加入msgbox，看都执行了什么？

 

 只要执行了 e.Cancel = true，就不会关闭项目

老大 在这个事件中  e.Cancel  设置为TRue 是拒绝打开项目  

你看没对表的那个项目吧，什么拒绝打开项目，是项目的CLOSE，不是OPEN啊

 加入msgbox弹出信息

我说了，代码是没错的，换句话来说的，有时能执行的得，有时执行不了，你信么，就同样的代码同样的表，不同的时间，说真的，你相信么

你第一行这样写

 

If DataTables("订单").Find("[发生日期] Is Null and [产品] Is Null and [客户] Is Null") Is Nothing Then

    Return '那么返回

End If

 

那么，如果执行了return，下面的代码就不会执行了啊。直接关闭项目啊