我编写的一个程序,发现一个奇怪的现象。就是如果我在项目属性中的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