关闭项目 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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

共有3061人关注过本帖树形打印复制链接主题：关闭项目

Bin

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/2/26 9:35:00 [显示全部帖子]

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

那么你使用一个全局变量来判断即可,如果是点击自己设计的按钮,就为全局变量赋值.

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | 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

下一主题 >> << 上一主题

主题：关闭项目