| 以文本方式查看主题 - Foxtable(狐表) (http://foxtable.com/bbs/index.asp) -- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2) ---- 升级后报错 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=138127) |
| -- 作者：rjh4078 -- 发布时间：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 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2019/7/23 15:26:00 -- 去掉这一句试试有没有问题：nfi.Text = "门店日报" & vbcrlf & "用户:" & _username & vbcrlf & Iif(n.days>0,"VPN:有效","VPN:过期" ) 上面代码这一句无法测试，其它我测试没有问题
|
| -- 作者：rjh4078 -- 发布时间：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 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2019/7/23 15:43:00 -- 删除掉bin目录，重启项目试试。 全局代码都发上来看看
|
| -- 作者：rjh4078 -- 发布时间：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 -- 发布时间：2019/7/23 16:01:00 -- 感觉是不是日期的问题 其他几个报错 里面 都是有全局日期变量 |
| -- 作者：rjh4078 -- 发布时间：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 |
| -- 作者：有点蓝 -- 发布时间：2019/7/23 16:23:00 -- 代码我测试没有问题。 卸载Foxtable，换个目录重新安装
|