Foxtable(狐表)用户栏目专家坐堂 → [求助] 发布后的软件只能启动一次


  共有2459人关注过本帖树形打印复制链接

主题:[求助] 发布后的软件只能启动一次

帅哥,在线噢!
2900819580
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:10003 威望:0 精华:0 注册:2015/6/30 8:46:00
[求助] 发布后的软件只能启动一次  发帖心情 Post By:2017/6/13 9:09:00 [只看该作者]

发布后的软件只能启动一次,关闭后就不能再次启动了,需要重启电脑才可以。

 

无盘上安装了360杀毒会报毒。并启动时不给升级。。。。。。以前没有问题的,自从升级到6/8的升级包后,就出现这样的问题。

 

主要问题出现在无盘系统当中,有盘系统没有问题。

[此贴子已经被作者于2017/6/13 9:10:06编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/13 9:23:00 [只看该作者]

  先升级到最新版吧。

 

  如果360报毒,那就添加一下白名单。

 

  你发布一个空白项目也是如此?


 回到顶部
帅哥,在线噢!
2900819580
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:10003 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2017/6/13 21:32:00 [只看该作者]

关键是同的产项目,有些电脑可以,有些电脑不可以。

 


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:112377 积分:572147 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2017/6/13 21:41:00 [只看该作者]

把程序加入杀毒软件的信任列表


 回到顶部
帅哥,在线噢!
2900819580
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:六尾狐 帖子:1368 积分:10003 威望:0 精华:0 注册:2015/6/30 8:46:00
  发帖心情 Post By:2017/6/14 14:03:00 [只看该作者]

老师,我这个跟你给出的提示不一样,现在问题是,第一次启动是正常的,关闭后,启动就不行了。无任何错误提示

启动代码如下。。。。

 

 

 

If Syscmd.Project.Update(False,False) = False Then
    Forms("登录窗口").Open()
   
    If _UserName = "" Then
        Syscmd.Project.Exit()
        Return '这个要加上,因为既然要退出,就不应该再执行后面的初始化代码了,否则会出错
    End If
   
   
    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
   

    BaseMainform.Text = "生产管理系统 " & Vars("版本")   
    AddHandler nfi.DoubleClick, AddressOf Icon_DoubleClick '为通知区域图标添加双击事件
   
    nfi.ContextMenuStrip = cms
    nfi.Text = "酷狗音乐" '鼠标移上去显示的文本
    nfi.Icon = new Icon(ProjectPath & "\kg.ico") '图标地址
    nfi.Visible = True '设置为显示
   
   
   
End If


 回到顶部
帅哥哟,离线,有人找我吗?
有点色
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:13837 积分:69650 威望:0 精华:0 注册:2016/11/1 14:42:00
  发帖心情 Post By:2017/6/14 14:40:00 [只看该作者]

 你弄一个新的项目、空白的项目,发布后,同样也是一样的情况?

 回到顶部