以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  关闭项目  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=46596)
--  作者：发财
--  发布时间：2014/2/26 9:22:00
--  关闭项目

If DataTables("收购").Find("[打印] = false ") Is Nothing Then
    Return \'那么返回
End If
Dim Result As DialogResult
Result = Messagebox.Show("存在打印未打印的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then \'如果用户选择否
    e.Cancel = True \'取消关闭项目
    Tables("收购").Filter = "[打印] = false " \'收购中筛选出打印为空的记录.
    MainTable = Tables("MAIN") \'选择收购作为主表.
End If

如何做到关闭项目时，跳过上述项目属性beforcloseproject，直接关闭项目？
--  作者：Bin
--  发布时间：2014/2/26 9:35:00
--  
什么意思? 跳过上面的所有代码? 你的意思是说在自己设计的按钮上跳过以上代码吗?

那么你使用一个全局变量来判断即可,如果是点击自己设计的按钮,就为全局变量赋值.
--  作者：发财
--  发布时间：2014/2/26 9:46:00
--  

可以帮我写写代码吗？
--  作者：Bin
--  发布时间：2014/2/26 9:48:00
--  
Vars("XX22")  默认值是True

当你点击自己设计的关闭按钮 为它赋值为False


if Vars("XX22") then
   If DataTables("收购").Find("[打印] = false ") Is Nothing Then
    Return \'那么返回
End If
Dim Result As DialogResult
Result = Messagebox.Show("存在打印未打印的记录,确定要关闭项目吗?","提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
If Result = DialogResult.No Then \'如果用户选择否
    e.Cancel = True \'取消关闭项目
    Tables("收购").Filter = "[打印] = false " \'收购中筛选出打印为空的记录.
    MainTable = Tables("MAIN") \'选择收购作为主表. 
End If
end if