Foxtable(狐表) → 用户栏目 → 专家坐堂 → 关闭项目


  共有3058人关注过本帖树形打印复制链接

主题：关闭项目
帅哥哟，离线，有人找我吗？
发财
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		关闭项目  发帖心情 Post By：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
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：2014/2/26 9:35:00 [只看该作者]

什么意思? 跳过上面的所有代码? 你的意思是说在自己设计的按钮上跳过以上代码吗?

那么你使用一个全局变量来判断即可,如果是点击自己设计的按钮,就为全局变量赋值.
 回到顶部
帅哥哟，离线，有人找我吗？
发财
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：六尾狐 帖子：1470 积分：8981 威望：0 精华：0 注册：2013/10/24 9:12:00 		  发帖心情 Post By：2014/2/26 9:46:00 [只看该作者]

可以帮我写写代码吗？
 回到顶部
帅哥哟，离线，有人找我吗？
Bin
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：贵宾 帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00 		  发帖心情 Post By：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.03516 秒, 4 次数据查询