| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 发布软件后，软件无法再次启动 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=98097) |
| -- 作者：2900819580 -- 发布时间：2017/3/24 7:52:00 -- 发布软件后，软件无法再次启动 软件如果关闭后，就无法再次开启，
但重启电脑后又可以。
|
| -- 作者：有点蓝 -- 发布时间：2017/3/24 8:41:00 -- 项目启动事件和关闭事件都做了什么事情？相关代码看看 无法开启提示什么错误?
|
| -- 作者：2900819580 -- 发布时间：2017/3/24 9:35:00 -- If Syscmd.Project.Update(False,False) = False Then Forms("登录窗口").Open() If _UserName = "" Then Syscmd.Project.Exit() Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 End If BaseMainform.Text = "生产管理系统 V3.5 " & _UserName Tables("BOM").Cols("子阶代码").DropForm = "物料表查找下拉" Tables("生产车间欠料表").Cols("物料代码").DropForm = "物料表查找下拉" Tables("常用物料总表").Cols("子阶代码").DropForm = "物料表查找下拉" Tables("对应表").Cols("物料代码").DropForm = "物料表查找下拉" If _userRoles Like "*采购*" Then RibbonTabs("采购管理").Visible = True End If If _userRoles Like "*系统管理员*" Then RibbonTabs("系统").Visible = True End If Tables("Users").Visible = False End If
|
| -- 作者：2900819580 -- 发布时间：2017/3/24 9:36:00 -- 无法开启，是没有任何提示。 |
| -- 作者：有点蓝 -- 发布时间：2017/3/24 9:46:00 -- 注释掉3楼的代码，发布测试看看还有没有问题 |
| -- 作者：有点色 -- 发布时间：2017/3/24 9:57:00 --
贴出你项目事件全部代码。
|
| -- 作者：2900819580 -- 发布时间：2017/3/24 15:32:00 -- 项目事件
AfterOpenProject
If
Syscmd.Project.Update(False,False) = False Then Forms("登录窗口").Open() If _UserName = "" Then Syscmd.Project.Exit() Return \'这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错 End If
BaseMainform.Text = "生产管理系统 V3.5 " & _UserName Tables("BOM").Cols("子阶代码").DropForm
= "物料表查找下拉" Tables("生产车间欠料表").Cols("物料代码").DropForm
= "物料表查找下拉" Tables("常用物料总表").Cols("子阶代码").DropForm
= "物料表查找下拉" Tables("对应表").Cols("物料代码").DropForm
= "物料表查找下拉"
If _userRoles Like "*采购*" Then RibbonTabs("采购管理").Visible =
True End If If _userRoles Like "*系统管理员*" Then RibbonTabs("系统").Visible =
True End If Tables("Users").Visible = False End If |
| -- 作者：有点色 -- 发布时间：2017/3/24 15:37:00 -- 代码没问题的。升级到最新版foxtable
重装foxtable重新发布。
发布一个新项目测试看有没有问题。
如果还有问题，和客服核对一下激活码。 |