.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