主题：max函数问题

表有如下几个字段，有姓名，A评分，B评分，C评分,D评评分，E评分，最后得分

 

 

最后得分为自动计算，最后评分去掉最高分、去掉最低分后，剩下的3个评分之和除3

 

 

相当于电子表格里：

                     最后得分=（SUM(A评分：E评分）-MAX(A评分：E评分）-MIN(A评分：E评分））/3

 

 

不知以上在FOXTABLE中如何实现，好像有点麻烦

 要写代码处理

 

Dim ns() As Double = {2, 3, 5,1,4}
Dim min As Double = 999
Dim max As Double = 0
Dim sum As Double = 0
For Each n As Double In ns
    If n < min Then
        min = n
    End If
    If n > max Then
        max = n
    End If
    sum += n
Next
Dim avg As Double = (sum-max-min)/3
msgbox(avg)

谢谢

好像不行

 我测试，没问题。贴出你写的代码

OK了，谢谢

Dim cs() As String = {"第四列", "第二列", "第三列","第五列","第六列"}

For Each dr As DataRow In DataTables("表A").Datarows
    Dim min = dr(cs(0))
    For Each c As String In cs
        If dr(c) < min Then min = dr(c)
    Next
    dr("DD") = min
Next

Dim cs1() As String = {"第四列", "第二列", "第三列","第五列","第六列"}

For Each dr As DataRow In DataTables("表A").Datarows
    Dim mAX = dr(cs1(0))
    For Each c As String In cs1
        If dr(c) > MAX Then MAX = dr(c)
    Next
    dr("WW") = MAX
Next

 

 

最大值、最小值出，就插入表达列很方便