主题：[求助]统计

窗口表的表名不对吧，没看见窗口名啊。

右下方的，参考

 

AfterSelRangeChange代码

 

Dim str1 As String = ""
Dim t As Table = CurrentTable
Str1 = Str1 & "计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
Str1 = Str1 & "总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol) & " "
RibbonMenu.StatusBar.Message3 = Str1

就是把要统计的数量拉一下

看不懂你的问题，做例子说明。

此主题相关图片如下：03.jpg

任何需要重新计算的地方，都加上上面的代码。

在系统菜单里面可以统计   在自己做的菜单里面不可以统计  

 

 

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.rar

此主题相关图片如下：04.jpg

 

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:管理项目1.foxdb

师傅  关于统计是在哪里修改了  我怎么没有发现

 

菜单设计，主菜单，事件