专家坐堂-新菜单下右下角合计不能显示Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  新菜单下右下角合计不能显示  (http://foxtable.net/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
--
改了后可以了,谢谢.