试试
if Syscmd.Project.Update(False,False) = false then
BaseMainform.Text = "上格生产管理系统"
Forms("登录窗口").Open()
If _UserName = "" Then
Syscmd.Project.Exit()
Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
End If
Tables("BOM").Cols("子阶代码").DropForm = "物料表查找下拉"
Tables("生产车间欠料表").Cols("物料代码").DropForm = "物料表查找下拉"
Tables("常用物料总表").Cols("子阶代码").DropForm = "物料表查找下拉"
'MessageBox.Show(_userRoles)
If _userRoles Like "*采购订单*" Then
' MessageBox.Show("VVV")
RibbonTabs("采购管理").Visible = True
End If
If _userRoles Like "*系统管理员*" Then
RibbonTabs("系统").Visible = True
End If
Tables("Users").Visible = False
end if
目的是希望打开项目的时候自动升级，然后打开窗口1。
但是上述代码肯定会在升级成功之后提示错误，因为一旦升级成功，Foxtable就会关闭，后面的打开窗口代码就会出错，当然后续其它的代码也一样会出错。
我们可以用下面的代码避免错误：
If Syscmd.Project.Update(False,False) = False Then '如果没有升级
Forms("窗口1").open()
'后续其它代码
End If
加好友 
发短信
Post By：2017/1/9 21:23:00 [显示全部帖子]
