以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 之前一直没有问题,突然提示:“UserCode”的类型初始值设定项引发异常 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189962) |
-- 作者:chen_sheng -- 发布时间:2024/1/8 11:05:00 -- 之前一直没有问题,突然提示:“UserCode”的类型初始值设定项引发异常 .NET Framework 版本:4.0.30319.42000 Foxtable 版本:2020.5.29.8 错误所在事件:***,CellButtonClick 详细错误信息: “UserCode”的类型初始值设定项引发异常。 年、月和日参数描述无法表示的 DateTime。 \'全局 Public coderow As DataRow Public codecol As DataCol \'CellButtonClick If e.Col.Name.EndsWith("代码") Then e.Cancel = True Coderow = e.Row.DataRow codecol = e.Col.DataCol FileSys.WriteAllText(ProjectPath & "Notepad\\Code.Fox",Coderow(codecol.name),False) Dim Proc As New Process Proc.WaitForClose = True Proc.File = ProjectPath & "Notepad\\notepad++" Proc.Arguments = ProjectPath & "Notepad\\Code.Fox" Proc.Start Dim CodeStr As String = FileSys.ReadAllText(ProjectPath & "Notepad\\Code.Fox") \'If CodeStr = Coderow(codecol.name) Then Return Nothing Coderow(codecol.name) = CodeStr End If [此贴子已经被作者于2024/1/8 11:10:44编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/1/8 11:16:00 -- 关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目试试。 |
-- 作者:chen_sheng -- 发布时间:2024/1/8 11:56:00 -- 关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启项目---不行 关闭退出项目,删除项目所在的文件夹里的bin目录,然后重启电脑---不行 [此贴子已经被作者于2024/1/8 12:01:39编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/1/8 12:00:00 -- 出错提示的是日期值有问题,但是没看出来上面代码和日期有什么关系。要么不是这个代码出错的,要么可能又触发了其它的事件出错 |
-- 作者:chen_sheng -- 发布时间:2024/1/8 15:23:00 -- 我把空项目发上来了 怀疑是其他问题 [此贴子已经被作者于2024/1/8 15:59:56编辑过]
|
-- 作者:有点蓝 -- 发布时间:2024/1/8 15:35:00 -- 全局代码有问题,不要直接在全局代码给变量赋值 比如 Public _w As Integer = Date.Today.DayOfWeek 不能这样用 要改为 Public _w As Integer 然后AfterOpenProject事件 _w = Date.Today.DayOfWeek
|
-- 作者:chen_sheng -- 发布时间:2024/1/8 16:00:00 -- 问题解决 感谢 ! |