以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  打不开项目-奇怪现象  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175035)

--  作者:njzwm
--  发布时间:2022/2/17 10:59:00
--  打不开项目-奇怪现象
我编写的一个程序,发现一个奇怪的现象。就是如果我在项目属性中的AfterOpenProject中写上(目的是在打开项目隐藏表头):

TableCaptionVisible = False
TableCaptionVisible = Not TableCaptionVisible

如果我在狐表中打开文件,文件在打开后就会死机,计算机进程显示是“无响应”。但是我如果在资源管理器中直接点击程序,项目打开使用没有任何问题。
但是我在其他程序中同样使用这个语句,却没有这个现象,奇怪!
背景交代一下: 最早这个程序是在狐表商业版中编写的,使用一直正常,但是改用开发版公司给我做了格式转换后就开始有这个现象发生,不知道是否和这个有关系。我的项目属性里设计的也很简单,整个项目我就不提供了。

Forms("欢迎页").Open()
MainTable = Tables("事件提醒")
Tables("事件提醒").OpenView("1")
Tables("资金需求表").OpenView("1")

TableCaptionVisible = False

Vars("Tname") = CurrentTable.Name

For Each t As Table In Tables
    If t.name Like "*.*" Then
        t.visible = False
    End If
Next

--  作者:有点蓝
--  发布时间:2022/2/17 11:07:00
--  
关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。

商业版项目文件和开发版项目文件建议不要放到同一个目录里使用

--  作者:njzwm
--  发布时间:2022/2/17 11:30:00
--  
删除Bin目录中文件再试结果还是一样。
原来商业版备转化为开发版后就没有再使用商业版了。

--  作者:有点蓝
--  发布时间:2022/2/17 11:33:00
--  
把项目文件发给客服那边测试一下
--  作者:njzwm
--  发布时间:2022/2/17 11:40:00
--  
好。