[求助]请问如何用更简洁的代码计算最大值、最小值、平均值？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请问如何用更简洁的代码计算最大值、最小值、平均值？

共有3335人关注过本帖树形打印复制链接主题：[求助]请问如何用更简洁的代码计算最大值、最小值、平均值？

rophy0952

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：二尾狐帖子：581 积分：4989 威望：0 精华：0 注册：2014/6/12 14:55:00

[求助]请问如何用更简洁的代码计算最大值、最小值、平均值？ 发帖心情

Post By：2014/10/15 16:13:00 [只看该作者]

如题，如何用最简洁的代码计算当前行1－50列的最大值、最小值及平均值，谢谢！

此主题相关图片如下：qq截图20141015161229.png

Bin

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：35433 积分：178524 威望：0 精华：3 注册：2013/3/30 16:36:00

Post By：2014/10/15 16:17:00 [只看该作者]

兄弟,你表设计不合理,你应该设计成竖着的.

例如

数值类型数值

有点甜

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：版主帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00

Post By：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