以文本方式查看主题 - 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次了,没有规律。每次都要注销系统。怀疑是否升级提示冲突。 |
-- 作者:有点甜 -- 发布时间: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编辑过]
|