以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  我的日历窗口中的afterload事件加载时出错  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=194786)

--  作者:wangjx817
--  发布时间:2025/1/14 13:44:00
--  我的日历窗口中的afterload事件加载时出错
我的日历打开时出错:“UserCode”的类型初始值设定项引发异常。出错详情:不知是什原因,我的日历窗口元旦前打开一直是正常,元旦过后升级系统后我的日历窗口不知什么莫名打开就不正常,出现以上错误,分析不出原因。老实指导一下。内部函数和全局代码未动过。以下是窗口加载原代码:

日历_AfterLoad

 

_my日历 = New 自定义日历

_my日历.Panel绑定(e.Form.Controls("Panel1"))

 

周历开个 =  0

周 = -10000

Dim MyDate1 As Date = _my日历.日期

e.Form.Controls("L_当前年月").text = MyDate1.Year & "年" & MyDate1.Month & "月"

_my日历.日期 = MyDate1

_my日历.刷新


--  作者:有点蓝
--  发布时间:2025/1/14 14:37:00
--  
关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。
--  作者:wangjx817
--  发布时间:2025/1/16 16:39:00
--  
按照老师的方法试了没用。但很奇怪,按住ctrl键不放打开文件时日历窗口显示正常,如果不用ctrl键直接打开文件日历窗口显示就出错不正常?
--  作者:有点蓝
--  发布时间:2025/1/16 16:50:00
--  
按ctrl建打开不会执行项目事件代码:http://www.foxtable.com/webhelp/topics/1057.htm

检查是不是项目事件代码有问题

--  作者:wangjx817
--  发布时间:2025/1/17 12:32:00
--  
ok