1、写日志跟踪一下事件和函数的执行
1）.项目事件BeforeShowErrorMessage在Foxtable捕获错误并即将显示错误信息前执行。
Functions.Execute("LogText",e.ex,e.Event)
e.Cancel = True
2）.自定义函数logtext
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
2、把程序设置为“以管理员身份运行此程序”
加好友 
发短信
Post By：2020/6/11 12:00:00 [只看该作者]
