Foxtable(狐表)用户栏目专家坐堂 → UserCode类型出事值设定引发异常


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

主题:UserCode类型出事值设定引发异常

帅哥哟,离线,有人找我吗?
sjzsdu
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
UserCode类型出事值设定引发异常  发帖心情 Post By:2015/12/31 14:49:00 [只看该作者]

项目发布后,在本机可以用,换了个电脑就出现如下问题:

.NET Framework 版本:2.0.50727.5485
Foxtable 版本:2014.11.11.1
错误所在事件:项目,BeforeOpenProject
详细错误信息:
“UserCode”的类型初始值设定项引发异常。


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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/31 15:05:00 [只看该作者]

你这个事件写了什么代码?BeforeOpenProject,贴出来。


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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2015/12/31 15:17:00 [只看该作者]

Dim config As String = Environment.currentdirectory & "\config.xml"
If FileSys.FileExists(config) = False Then
    e.HideSplashForm = True
    MessageBox.show("系统项目文件丢失,无法打开此项目,请重新安装系统或者联系厂家!")
    e.Cancel=True
Else
    
    Dim xmlpath As String = "System/DecryptCode"
    Dim xmlDoc As New System.XML.XmlDocument
    xmlDoc.Load(config)
    Dim xmlNd As System.XML.XmlNode = xmlDoc.SelectSingleNode(xmlpath)
    Dim decCode As String = xmlNd.InnerText

    
    Dim Val1 As String = computerID
    Dim Val2 As String = EncryptText(Val1,"jugao","")
    Val2= Val2.Substring(2,8)
    Dim Val3 As String = EncryptText(Val2,"jugao","")
    Val3= Val3.Substring(2,8)
    Dim Val4 As String = EncryptText(Val3,"2015","")
    Val4= Val4.Substring(2,8)

    If decCode <> Val4 Then
        Dim frm As New Form1
        frm.ShowDialog() '模式打开
        If  bl_取消  Then
            e.Cancel = True
        End If
        
        If bl_确定 Then
            '你的策略
          
            If str_注册码=Val4 Then
                Dim config1 As String = Environment.currentdirectory & "\config.xml"
                Dim xmlpath1 As String = "System/DecryptCode"
                Dim xmlDoc1 As New System.XML.XmlDocument
                xmlDoc1.Load(config1)
                Dim xmlNd1 As System.XML.XmlNode = xmlDoc1.SelectSingleNode(xmlpath1)
                xmlNd1.InnerText = str_注册码
                xmlDoc1.save(config)
              
            Else
               If  MessageBox.show("注册码错误,请联系软件开发者","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)=DialogResult.OK Then
                e.Cancel=True
                 End If
            End If
            
        End If
    End If
    
End If

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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2015/12/31 15:18:00 [只看该作者]

在本机没问题,发布后的项目在其他计算机上运行就出错。

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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2015/12/31 15:19:00 [只看该作者]

本机和别的计算机运行环境也没有变,都是window 7 ,都安装了.netframework 4.5

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


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2015/12/31 15:23:00 [只看该作者]

1、打开exe的时候,右键,用管理员身份运行;

 

2、你往事件里加入msgbox,重新发布,看看执行到哪句代码后报错。

 

http://www.foxtable.com/help/topics/1485.htm

 


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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2016/1/4 12:19:00 [只看该作者]

以管理员身份登录,结果还是一样的
我用messagebox.show 查出来,在全局代码中

Public Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
'取消
MessageBox.show("button4click")
bl_取消 = True
Me.Close()
End Sub

MessageBox.show("button4click")这个能正确执行
接着  bl_取消=true 就出错

备注:装foxtable的计算机运行时不存在问题,发布完的系统装到其他计算机上去就出现这个问题。

 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/4 12:26:00 [只看该作者]

做一个空项目,也写全局代码 bl_取消=true 再发布测试。

 

如果报错,把做的空项目发上来测试。


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


加好友 发短信
等级:小狐 帖子:341 积分:2455 威望:0 精华:0 注册:2014/7/30 18:03:00
  发帖心情 Post By:2016/1/4 12:34:00 [只看该作者]

新做了一个空项目,空项目运行正常,没有报错。


 回到顶部
帅哥哟,离线,有人找我吗?
大红袍
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:贵宾 帖子:39310 积分:196782 威望:0 精华:1 注册:2015/4/25 9:23:00
  发帖心情 Post By:2016/1/4 12:40:00 [只看该作者]

以下是引用sjzsdu在2016/1/4 12:34:00的发言:
新做了一个空项目,空项目运行正常,没有报错。

 

原本的项目,把bin文件夹删除,重新打开,重新发布。


 回到顶部
总数 40 1 2 3 4 下一页