以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]系统自带的自动计算功能,发布后就不显示  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=77615)
--  作者：ncefans
--  发布时间：2015/11/21 21:38:00
--  [求助]系统自带的自动计算功能,发布后就不显示
系统自带的自动计算功能很好用,在开发环境就显示正常. 但是发布后,用户菜单模式下,状态栏就不显示,如果才能正常显示自动计算的结果呢?

这个功能不是系统自带的吗? 是否还需要另外写代码?
--  作者：大红袍
--  发布时间：2015/11/22 14:33:00
--  

写到系统SystemIdle事件

 

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) & " "


StatusBar.Message3 = str1
--  作者：江南小城
--  发布时间：2015/12/3 9:31:00
--  
谢谢老师
--  作者：332595
--  发布时间：2023/3/10 11:58:00
--  
正好需要。