主题：今天几台电脑项目都打不开，显示错误

如图，今天几台电脑的项目打开后都提示如下错误：
此主题相关图片如下：搜狗截图20141230142820.jpg

把项目文件发上来看看

急急急，，老师们看看。试用版和商业版提示的稍微有不一样。一个提示“gv”,一个提示“gw”

急急急，，老师们看看。试用版和商业版提示的稍微有不一样。一个提示“gv”,一个提示“gw”

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:测试.zip

发上了了，，版主看看

我的两台电脑今天打开后都报错。一个是商业版一个是试用版。

刚才发现项目文件的数据库是我以前的老数据库，好像缺少一点表。不过不会影响老师们检测今天的问题。

BeforeOpenProject，代码有问题，但我测试没有报你这种错。

 

Dim a As Date = Date.Today
Dim b As Date = #12/30/2014#
If Date.Today >= b Then
    e.Cancel = true
End If

BEforOpenproject事件,不要用 Project.Exit 执行了后面的代码会继续执行,就会报错.

哦，，对了。想起来了。以前好像设置过这个代码。哎，时间一长都忘了。。该死该死，，，，、