主题：之前一直没有问题，突然提示：“UserCode”的类型初始值设定项引发异常

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