主题：[求助] Foxtable 2021 的稳定性问题

Dim v  = Args(0)

Dim bu As new StringBuilder

bu.AppendLine(Format( Date.Now,"yyyy-MM-dd HH:mm:ss.ffff")) '记录出错时间

If Args.length > 1 Then

    bu.AppendLine("事件/函数: " & Args(1)) '记录出错的事件或者函数

End If

If Typeof v Is Exception Then '如果是Exception的异常类型,则递归获取所有的异常堆栈

    Do While v IsNot Nothing

        bu.AppendLine( v.Message &  vbcrlf & v.StackTrace)

        v = v.InnerException

    Loop

Else '其它情况只能传入错误的文本内容

    bu.AppendLine(v)

End If

Output.Logs("AppLogging").Add(bu.ToString)

Output.Logs("AppLogging").Save(ProjectPath & "Mmsglog.txt",True) '日志位于当前项目目录里

Output.Logs("AppLogging").Clear