- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- [求助]关于自动计算 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=69148)
-- 发布时间：2015/5/31 17:13:00
-- [求助]关于自动计算
如图
此主题相关图片如下：aggregate.jpg
-- 发布时间：2015/5/31 19:05:00
--
参考代码
Dim t As Table = CurrentTable
msgbox("计数:" & t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("累计:" & t.Aggregate(AggregateEnum.Sum, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox( "平均:" & t.Aggregate(AggregateEnum.Average, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("最大:" & t.Aggregate(AggregateEnum.Max, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("最小:" & t.Aggregate(AggregateEnum.Min, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("标准差:" & t.Aggregate(AggregateEnum.Std, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("总体标准差:" & t.Aggregate(AggregateEnum.StdPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("方差:" & t.Aggregate(AggregateEnum.Var, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
msgbox("总体方差:" & t.Aggregate(AggregateEnum.VarPop, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol))
-- 发布时间：2015/6/1 15:49:00
--
非常谢谢。其实，我是想勾选到哪个。点一下计算按钮后。结果显示在相应项后面的文本框中。不是用信息窗的方式一个一个出来。
-- 发布时间：2015/6/1 16:01:00
--
写一个，其余同理
Dim t As Table = CurrentTable
If e.Form.Controls("CheckBox1").Checked Then
e.Form.Controls("TextBox1").Text = t.Aggregate(AggregateEnum.Count, t.TopRow, t.LeftCol, t.BottomRow, t.RightCol)
Else
e.Form.Controls("TextBox1").Text = Nothing
End If
-- 发布时间：2015/6/3 11:32:00
--
感谢！