根据说明中的说法:
如果我们在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。
我现在想法是:(当升级时会显示一个窗口,提示升级进行中,当升级成功后再关闭那个提示窗口,请问下面的做法可行吗?如果不行应该如何做?)
在AfterOpenProject下面的代码:
Syscmd.Project.Update(False,True)
Forms("窗口1").Open() ’这里打开窗口是希望能让这个窗口提示用户升级正在进行中(因为有时网络或文件的原因,下载升级包会需要一些时间的。)
If Syscmd.Project.Update(False,False) = True Then '如果升级成功就关闭下面的窗口。
Forms("窗口1").close()
End If