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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 一个项目只能运行一个Foxtable

共有2343人关注过本帖树形打印复制链接主题：一个项目只能运行一个Foxtable

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

一个项目只能运行一个Foxtable 发帖心情

Post By：2016/10/8 21:50:00 [只看该作者]

有时打开窗口多，同一个项目，不小心打开两个Foxtable，并同时在两个里面录数据，弄的数据非常混乱。

怎样只能一个项目打开一个Foxtable，如果已经打开，会提醒“本项目已经打开！

此主题相关图片如下：一个项目只能运行一个foxtable.jpg

逛逛

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

加好友

发短信

等级：版主帖子：1693 积分：12135 威望：0 精华：7 注册：2013/7/11 10:52:00

Post By：2016/10/9 8:31:00 [只看该作者]

项目事件 BeforeOpenProject

If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then

e.Cancel = True

End If

szsmall

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

加好友

发短信

等级：幼狐帖子：168 积分：1956 威望：0 精华：0 注册：2015/5/8 1:17:00

Post By：2016/10/9 10:23:00 [只看该作者]

这个代码，直接打不开项目，最好能有个警告窗，不然会以为这个项目文件坏了。

加了msgbox，但发现Foxtable启动画面会挡住，弹出窗口，给人错觉是卡在那。有办法让弹出窗显示在最上面嘛

If (UBound(Diagnostics.Process.GetProcessesByName(Diagnostics.Process.GetCurrentProcess.ProcessName)) > 0) Then
msgbox("已运行,请勿重复打开")
e.Cancel = True
End If