以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  异常故障  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=105483)

--  作者:实话实说
--  发布时间:2017/8/20 19:37:00
--  异常故障
今天出现3次了,没有规律。每次都要注销系统。怀疑是否升级提示冲突。

图片点击可在新窗口打开查看此主题相关图片如下:snap3.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:snap4.jpg
图片点击可在新窗口打开查看

图片点击可在新窗口打开查看此主题相关图片如下:snap5.jpg
图片点击可在新窗口打开查看


--  作者:有点甜
--  发布时间:2017/8/20 19:46:00
--  

修改系统菜单的 systemIdle 事件,加入try catch

 

http://www.foxtable.com/webhelp/scr/2070.htm

 


--  作者:实话实说
--  发布时间:2017/8/20 19:58:00
--  
我的菜单 systemIdle,如何加try catch
\'右下角显示表的区域计算
Dim Sum,Average,Count, Max,  Min As Double
With CurrentTable
    Sum = CurrentTable.Aggregate(AggregateEnum.Sum, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Average = CurrentTable.Aggregate(AggregateEnum.Average, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Count = CurrentTable.Aggregate(AggregateEnum.Count, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Max = CurrentTable.Aggregate(AggregateEnum.Max, .TopRow, .LeftCol, .BottomRow, .RightCol)
    Min = CurrentTable.Aggregate(AggregateEnum.Min, .TopRow, .LeftCol, .BottomRow, .RightCol)
End With
StatusBar.Message3 ="  累计:" & Cstr(sum) & "  平均:" & Cstr(Average) & "  计数:"  & Cstr(Count) & "  最大:"  & Cstr(Max) & "  最小:"  & Cstr(Min) & " "

--  作者:有点甜
--  发布时间:2017/8/20 19:58:00
--  

try

    \'原来代码

catch ex as Exception

 

end try

[此贴子已经被作者于2017/8/20 19:58:36编辑过]