以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  新菜单下右下角合计不能显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=124359)
--  作者：SZDVYE
--  发布时间：2018/9/5 2:29:00
--  新菜单下右下角合计不能显示
以下代码还是不显示,请问哪里出错了.
 
右下角合计可以在项目的AfterSelRangChange事件中加如下代码解决：

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.Message3 ="    累计:" & Cstr(sum) & "    平均:" & Cstr(Average) & "    计数:"  & Cstr(Count) & "     "

--  作者：有点甜
--  发布时间：2018/9/5 9:07:00
--  
你试试写到 systemIdle 事件去
--  作者：SZDVYE
--  发布时间：2018/9/7 3:03:00
--  

写到 systemIdle 试过了,还是不行
--  作者：有点甜
--  发布时间：2018/9/7 8:26:00
--  
以下是引用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) & "     "

--  作者：SZDVYE
--  发布时间：2018/9/14 20:16:00
--  
改了后可以了,谢谢.