[求助]表事件中平均值计算 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]表事件中平均值计算

共有2325人关注过本帖树形打印复制链接主题：[求助]表事件中平均值计算

huangfanzi

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

加好友

发短信

等级：五尾狐帖子：1104 积分：8956 威望：0 精华：0 注册：2014/10/25 11:24:00

[求助]表事件中平均值计算 发帖心情

Post By：2015/11/13 14:57:00 [只看该作者]

表事件DataColChanged

假定以下内容，三个硬度不一定会全部输入：

硬度1 硬度2 硬度3 平均硬度

100 100 130 110

120 130 125

150 150

由于这个硬度要被别的表从后台调用，所以不能用表达式，请问老师这个平均值代码应该如何写。

[此贴子已经被作者于2015/11/13 14:56:58编辑过]

大红袍

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

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2015/11/13 15:02:00 [只看该作者]

呃，直接相加相除。

If e.DataCol.Name Like "硬度*" Then
    Dim count As Integer = 0
    Dim sum As Double = 0
    For Each dc As DataCol In e.DataTable.datacols
        If dc.name Like "硬度*" AndAlso e.DataRow.isnull(dc.name) = False Then
            count += 1
            sum += e.DataRow(dc.name)
        End If
    Next
    If count > 0 Then
        e.DataRow("平均硬度") = sum / count
    Else
        e.DataRow("平均硬度") = Nothing
    End If
End If

下一主题 >> << 上一主题

主题：[求助]表事件中平均值计算