以下是引用SZDVYE在2018/9/7 3:03:00的发言：
写到 systemIdle 试过了,还是不行
1、你删掉本来的菜单的systemIdle代码再测试；
2、或者你改成
Dim Sum,Average,Count 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)
End With
StatusBar.Message1 =" 累计:" & Cstr(sum) & " 平均:" & Cstr(Average) & " 计数:" & Cstr(Count) & " "
加好友 
发短信
Post By：2018/9/5 2:29:00 [只看该作者]
