- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 之前一直没有问题，突然提示：“UserCode”的类型初始值设定项引发异常 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=189962)
-- 发布时间：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目录，然后重启项目试试。
-- 发布时间：2024/1/8 11:56:00
--
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启项目---不行
关闭退出项目，删除项目所在的文件夹里的bin目录，然后重启电脑---不行
是不是和win11系统的日期格式有冲突导致的呢
此主题相关图片如下：573228bd-6355-4be7-b40d-25bf702fe8c4.png
此主题相关图片如下：573228bd-6355-4be7-b40d-25bf702fe8c4.png[此贴子已经被作者于2024/1/8 12:01:39编辑过]
-- 发布时间：2024/1/8 12:00:00
--
出错提示的是日期值有问题，但是没看出来上面代码和日期有什么关系。要么不是这个代码出错的，要么可能又触发了其它的事件出错
-- 发布时间：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
-- 发布时间：2024/1/8 16:00:00
--
问题解决 感谢 ！