以下是引用Pgwyg在2022-6-13 09:39:44的发言：

谢谢您，我需要整点保存数据，而且要有时间显示，原来使用一个timer实现时间同步显示、实时数据采集、和数据保存,出现问题后又添加了一个专门负责数据采集，还是出现程序无响应的问题，即使停止数据采集工作，也是这样，现在又加了一个计时器，专门负责时间显示，看看能否成功。百思不得其解的是有时工作几天没问题，一旦出现问题，就是停在19：59：59和23：59：59，如果随机还好理解。TYR也未能捕捉到错误。
TRY
DO FORM YCCB2
READ EVENTS        
CATCH TO ex
        ex_info= "错误编号： "+ALLTRIM(STR(ex.ErrorNo))+CHR(10)+CHR(13)+;
        "    错误行号： "+ALLTRIM(STR(ex.LineNo))+CHR(10)+CHR(13)+;
        "    错误信息： "+ALLTRIM(ex.Message)+CHR(10)+CHR(13)+;
        "    错误函数： "+ALLTRIM(ex.Procedure)+CHR(10)+CHR(13)+;
        "    错误细节： "+ALLTRIM(ex.Details)+CHR(10)+CHR(13)+;
        "调用堆栈级别： "+ALLTRIM(STR(ex.StackLevel))+CHR(10)+CHR(13)+;
        "  代码行内容： "+ALLTRIM(ex.LineContents)
        StrToFile(ex_info, "d:\error_info.txt")
ENDTRY