Foxtable(狐表) → 用户栏目 → 专家坐堂 → 升级后报错


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

主题：升级后报错
帅哥哟，离线，有人找我吗？
rjh4078
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		升级后报错  发帖心情 Post By：2019/7/23 15:13:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.7.21.1
错误所在事件：计划信息栏提示
详细错误信息：
“UserCode”的类型初始值设定项引发异常。
混合模式程序集是针对“v2.0.50727”版的运行时生成的，在没有配置其他信息的情况下，无法在 4.0 运行时中加载该程序集。


计划信息栏提示的代码：
Dim s As String
s= iif(QQClient.Ready,"消息服务器已连接 备份服务正常","无法连接消息服务器 备份服务异常")
If vars("短信平台")=True
    s=s & "  短信平台已就绪,请连接端口!"
End If
StatusBar.Message1=s
Dim ln As new Lunar(Date.Today)



StatusBar.Message2="   本地:【" & format(Date.now,"yyyy年MM月dd日hh:mm") & "】  星期" & "日一二三四五六".Chars(Today.DayOfWeek) & "  农历【" & ln.lunardate  & "】  操作员:" & _username & "     角色:" & _usergroup & "    数据区间:" & Date.Today.AddDays(-7) & "至" & Date.Today
''StatusBar.Message2=StatusBar.Message2 & "       " & iif(dxpt ,"本地短消息服务启动!","本地短消息服务关闭!")




Dim n As timespan=yxq-bdsj
nfi.Text = "门店日报" &  vbcrlf  & "用户:" & _username  & vbcrlf & Iif(n.days>0,"VPN:有效","VPN:过期" )
If SystemMenu=False Then
    ApplicationMenu.visible = False
Else
    ApplicationMenu.visible = True
End If
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 15:22:00 [只看该作者]

通过一行一行注释 方向注释掉下面这行就不报错了
StatusBar.Message2="   本地:【" & format(Date.now,"yyyy年MM月dd日hh:mm") & "】  星期" & "日一二三四五六".Chars(Today.DayOfWeek) & "  农历【" & ln.lunardate  & "】  操作员:" & _username & "     角色:" & _usergroup & "    数据区间:" & Date.Today.AddDays(-7) & "至" & Date.Today
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 15:26:00 [只看该作者]

去掉这一句试试有没有问题：nfi.Text = "门店日报" &  vbcrlf  & "用户:" & _username  & vbcrlf & Iif(n.days>0,"VPN:有效","VPN:过期" )

上面代码这一句无法测试，其它我测试没有问题
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 15:37:00 [只看该作者]

发现事情没这么简单  我代码注释成这样了还报错

''Dim s As String
''s= iif(QQClient.Ready,"消息服务器已连接 备份服务正常","无法连接消息服务器 备份服务异常")
'If vars("短信平台")=True
    's=s & "  短信平台已就绪,请连接端口!"
'End If
''StatusBar.Message1=s
''Dim ln As new Lunar(Date.Today)
''StatusBar.Message2="   本地:【" & format(Date.now,"yyyy年MM月dd日hh:mm") & "】  星期" & "日一二三四五六".Chars(Today.DayOfWeek) & "  农历【" & ln.lunardate  & "】  操作员:" & _username & "     角色:" & _usergroup & "    数据区间:" & Date.Today.AddDays(-7) & "至" & Date.Today

''nfi.Text =  vbcrlf & "当前用户:" & _username & vbcrlf & "角色:" & _usergroup & vbcrlf & iif(dxpt ,"短信服务:online!","短信服务:offline!") & vbcrlf & "微信端口:offline!"

Dim n As timespan
n=yxq-bdsj
'If n.days>0 Then
    '''StatusBar.Message3="授予:" & vars("company") & "  有效期剩余:" & n.days & "天" & "  截至:" & yxq
'End If
''nfi.Text =  "用户:" & _username  & vbcrlf & Iif(n.days>0,"VPN:有效","VPN:过期" )
'If SystemMenu=False Then
    'ApplicationMenu.visible = False
'Else
    'ApplicationMenu.visible = True
'End If

只保留了红色部分还是报错
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 15:39:00 [只看该作者]

yxq bdsj 都是全局变量


Public yxq As Date
Public fwq As Boolean
Public _UserName As String
Public _UserGroup As String
Public _Userid As String
Public _ckdj As Boolean
Public bdsj As Date
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 15:43:00 [只看该作者]

删除掉bin目录，重启项目试试。

全局代码都发上来看看
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 15:46:00 [只看该作者]

删除bin已经试过几次了

全局代码如下
Public dxpt As Boolean
Public yxq As Date
Public fwq As Boolean
Public _UserName As String
Public _UserGroup As String
Public _Userid As String
Public _ckdj As Boolean
Public bdsj As Date
Public djbh As String
Public djlx As String
Public bhlx As String
Public msg As String
Public htr As Row
'==================设置最小化==============================
Public Dim nfi As new System.Windows.Forms.NotifyIcon
'定义通知区域小图标
Public Dim cms As new System.Windows.Forms.ContextMenuStrip
'定义右键菜单'菜单按钮点击事件
'Public Sub Menu1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
'MessageBox.Show("你点击的是 : " & sender.Text)
'End Sub
'图标双击事件
'Public Sub ICON_DoubleClick(ByVal sender As System.Object, ByVal e As System.EventArgs)
''baseMainform.size=2
'
'baseMainform.visible=not baseMainform.visible
'End Sub
Public Sub ICON_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
''baseMainform.visible=True
If baseMainform.visible=False Then
    baseMainform.visible=True
Else
    baseMainform.WindowState=iif(baseMainform.WindowState=2,1,2)
End If


'设置主窗体显示
End Sub
 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 16:01:00 [只看该作者]

感觉是不是日期的问题 其他几个报错 里面 都是有全局日期变量

 回到顶部
帅哥哟，离线，有人找我吗？
rjh4078
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：狐精 帖子：3353 积分：24705 威望：0 精华：0 注册：2012/3/26 21:47:00 		  发帖心情 Post By：2019/7/23 16:08:00 [只看该作者]

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2019.7.21.1
错误所在事件：全局表事件,AfterResizeColumn
详细错误信息：
“UserCode”的类型初始值设定项引发异常。
混合模式程序集是针对“v2.0.50727”版的运行时生成的，在没有配置其他信息的情况下，无法在 4.0 运行时中加载该程序集。

这个也搞不懂了  看来坑很多啊 刚刚才试了几个地方 就一堆报错

If _UserName<>"" Then
Dim gs As String=vars("格式类型")
    If gs<>"" Then
        Dim dr As DataRow=DataTables("表格式").find("表名='" & e.Table.name & "' and 用户='" & _username & "' and 类型='" & gs & "'")
        If dr Is Nothing Then
            Dim r As Row=Tables("表格式").addnew
            r("表名")=e.Table.name
            r("用户")=_UserName
            r("顺序")=e.Table.GetColVisibleWidth()
            r("类型")=gs
            r.save
        Else
            dr("顺序")=e.Table.GetColVisibleWidth()
            dr.save
        End If
    Else
        Dim dr As DataRow=DataTables("表格式").find("表名='" & e.Table.name & "' and 用户='" & _username & "'")
        If dr Is Nothing Then
            Dim r As Row=Tables("表格式").addnew
            r("表名")=e.Table.name
            r("用户")=_UserName
            r("顺序")=e.Table.GetColVisibleWidth()
            r.save
        Else
            dr("顺序")=e.Table.GetColVisibleWidth()
            dr.save
        End If
    End If
    
End If
MyTimers("刷新表格式").Enabled=True
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：106046 积分：539323 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/7/23 16:23:00 [只看该作者]

代码我测试没有问题。

卸载Foxtable，换个目录重新安装
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询