- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]请问如何用更简洁的代码计算最大值 、最小值、平均值？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=58352)
-- 发布时间：2014/10/15 16:13:00
-- [求助]请问如何用更简洁的代码计算最大值 、最小值、平均值？
如题，如何用最简洁的代码计算当前行1－50列的最大值、最小值及平均值，谢谢！
此主题相关图片如下：qq截图20141015161229.png
-- 发布时间：2014/10/15 16:17:00
--
兄弟,你表设计不合理,你应该设计成竖着的.
例如
数值类型 数值
-- 发布时间：2014/10/15 16:21:00
--
写到datacolchanged事件
If e.DataCol.Name <> "最小值" AndAlso e.DataCol.Name <> "最大值" AndAlso e.DataCol.Name <> "平均值" Then
Dim t As Table = Tables(e.DataTable.Name)
e.DataRow("最小值") = t.Aggregate(AggregateEnum.min, t.Current.Index, 1, t.Current.Index, 5)
e.DataRow("最大值") = t.Aggregate(AggregateEnum.max, t.Current.Index, 1, t.Current.Index, 5)
e.DataRow("平均值") = t.Aggregate(AggregateEnum.Average, t.Current.Index, 1, t.Current.Index, 5)
End If
http://www.foxtable.com/help/topics/0545.htm
-- 发布时间：2014/10/15 16:21:00
--
没办法，只能这样设计，这个是每批材料抽样测试的结果。一次结果为一行。这是前面部分，您有好建议吗？
此主题相关图片如下：qq截图20141015162142.png
-- 发布时间：2014/10/15 16:24:00
--
参考3楼, 从第几列开始到第几列,调整参数即可
-- 发布时间：2014/10/15 16:34:00
--
可以了，谢谢!