以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  发布后的程序不定时假死  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=129850)

--  作者:liuqide
--  发布时间:2019/1/7 16:55:00
--  发布后的程序不定时假死
foxtable版本为2018-3-9,发布后的程序,运行中偶尔会出现某个窗口点击操作无反应,鼠标是能移动的,但比如点查询点保存,事件都不触发,程序处于假死状态。如果用管理员身份运行程序就不会出现这种假死情况。请问这是什么原因,有没有解决方案。
--  作者:有点甜
--  发布时间:2019/1/7 16:59:00
--  

贴出你项目属性->afterOpenProject、loadUserSetting事件的代码。


--  作者:liuqide
--  发布时间:2019/1/8 9:13:00
--  

\'AfterOpenProject


BaseMainForm.Text = "生产管理系统"


\'程序标题居左
BaseMainForm.visible = True
CType(BaseMainForm,C1Ribbon.C1RibbonForm).Ribbon.CaptionAlignment = 0


If User.Type <> UserTypeEnum.Developer
    RibbonTabs("其他").Groups("OuterData1").Enabled = False
    For Each tb As Table In Tables
        tb.visible = False
    Next
    If Date.Today > "2019-03-01"
        Syscmd.Project.Exit()
    End If
End If

If User.Type = UserTypeEnum.Developer Or User.Type = UserTypeEnum.Administrator Then
    RibbonTabs("统计分析").Groups("功能组5").Visible = True    
End If

If User.Group = "销售经理" Or User.Group = "业务员" Or User.Group = "业务助理" Then
    
End If

If User.Type = UserTypeEnum.User Then
If User.IsRole("修改工序报工") Then
    RibbonTabs("日常工作").Groups("功能组2").Items("工序报工查询").Enabled = True
    RibbonTabs("日常工作").Groups("功能组2").Items("工序报废查询").Enabled = True
Else
    RibbonTabs("日常工作").Groups("功能组2").Items("工序报工查询").Enabled = False
    RibbonTabs("日常工作").Groups("功能组2").Items("工序报废查询").Enabled = False    
End If
If User.Group = "销售经理" Or User.Group = "业务员" Or User.Group = "业务助理" Then
    RibbonTabs("日常工作").Groups("功能组1").Items("订单导入").Enabled = True
Else
    RibbonTabs("日常工作").Groups("功能组1").Items("订单导入").Enabled = False
End If
End If

\'LoadUserSetting


StatusBar.Message2 = Date.Today & "  " &  User.Name

--  作者:有点甜
--  发布时间:2019/1/8 9:34:00
--  

1、和客服核对激活码,重新激活,重新发布;

 

2、在32位电脑上发布程序,在发布程序的电脑上测试;

 

3、如果删除afterOpenProject事件代码,是否正常?


--  作者:liuqide
--  发布时间:2019/1/8 10:15:00
--  
1.试过了不行
2.后面我试试
3.程序是刚打开时是正常的,是运行一段时间后偶尔出现假死,应该跟AfterOpenProject无关

--  作者:有点甜
--  发布时间:2019/1/8 10:17:00
--  
以下是引用liuqide在2019/1/8 10:15:00的发言:
 
3.程序是刚打开时是正常的,是运行一段时间后偶尔出现假死,应该跟AfterOpenProject无关

 

你说的【如果用管理员身份运行程序就不会出现这种假死情况】。请删除AfterOpenProject事件代码后测试,或者删除 UserTypeEnum.Administrator 相关的事件代码后测试。


--  作者:liuqide
--  发布时间:2019/1/8 11:01:00
--  
我指的是在程序图标右击"以管理员身份运行"打开程序,并不是在程序登陆时用”管理员“帐号登陆,所以这个跟UserTypeEnum.Administrator没有关系啊
--  作者:有点甜
--  发布时间:2019/1/8 11:10:00
--  
以下是引用liuqide在2019/1/8 11:01:00的发言:
我指的是在程序图标右击"以管理员身份运行"打开程序,并不是在程序登陆时用”管理员“帐号登陆,所以这个跟UserTypeEnum.Administrator没有关系啊

 

那你就设置用管理员身份运行。需要管理员权限啊。

 

图片点击可在新窗口打开查看