以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  foxtable 里面自带的计数功能能不能用到窗口里面去？  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=84070)
--  作者：NevermoreZhang
--  发布时间：2016/4/22 15:07:00
--  foxtable 里面自带的计数功能能不能用到窗口里面去？
http://www.foxtable.com/help/index.html?n=2170.htm
就是这上面的功能，我想放到窗口里面的表也有这样的功能，怎么做到呢？
--  作者：大红袍
--  发布时间：2016/4/22 15:15:00
--  

这个功能窗口表也有的，怎么不行了？

 

主要代码

 

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
--  作者：NevermoreZhang
--  发布时间：2016/4/22 15:21:00
--  
窗口表里面是需要在那边加上面那一些代码吗？
--  作者：大红袍
--  发布时间：2016/4/22 15:22:00
--  
本来不加上上面的代码，也是会计算的啊。
--  作者：NevermoreZhang
--  发布时间：2016/4/22 15:26:00
--  
哦哦明白了！
--  作者：NevermoreZhang
--  发布时间：2016/4/22 15:27:00
--  
十分感谢！