你的升级代码是不是写错了？

Update的语法：

Syscmd.Project.Update(Prom1, Prom2)

Prom1: 可选参数，逻辑型，没有发现新版本时，是否提示用户。
Prom2: 可选参数，逻辑型，发现新版本时，是否提示用户升级。

例如希望自动升级能够完全"静默"，发现新版本时不提示，自动开始升级，没有发现新版本时也不提示：

Syscmd.Project.Update(False,False)

如果我们在AfterOpenProject下面的代码：

Syscmd.Project.Update(False,False) 
Forms("窗口1").Open() \'可能会出错
\'后续其它代码

目的是希望打开项目的时候自动升级，然后打开窗口1。
但是上述代码肯定会在升级成功之后提示错误，因为一旦升级成功，Foxtable就会关闭，后面的打开窗口代码就会出错，当然后续其它的代码也一样会出错。
我们可以用下面的代码避免错误：

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    Forms("窗口1").open()
    \'后续其它代码
End If

也就是说Update执行后会返回一个逻辑值，如果升级成功，返回True，否则返回False。

总之，如果需要在AfterOpenPoject事件中实现自动升级，那么原有的AfterOpenProject事件代码必须包括在这个判断中，只有没有升级的情况下，才执行原来的代码：

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    \'原AfterOpenProject事件代码
End If

If Syscmd.Project.Update(False,False) = False Then \'如果没有升级
    TableCaptionVisible = False
    Forms("开始").open()
End If
Dim cmd As New SQLCommand
cmd.CSELT * From {用户} Where [Name] Is Null"
_UserTable = cmd.ExecuteReader(True)
Forms("用户登录").Open()
If _UserName = "" Then
    Syscmd.Project.Exit()
    Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
Else
    DataTables("用户").loadfilter ="name = \'" & _username & "\'"
    DataTables("用户").load
End If

afterobject事件

第一个问题解决了，谢谢，第二个问题没找找问题，我又远程升级试了一下，用户登录窗口始终会卡起，取消都点不起，请老师帮查一下，我把整个项目都发给你帮我诊断一下，谢谢

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

点击浏览该文件:2.rar

什么意思

刘林，123