以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  [求助]比较一行中几个列的最大值和最小值  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=186862)

--  作者:jjjeyes
--  发布时间:2023/6/4 1:35:00
--  [求助]比较一行中几个列的最大值和最小值
我想比较同一行中的几个列的值,取他们的最大值,最小值,总和。有下面的代码:
Dim dr As DataRow = e.DataRow
Dim Values(4) As Double
Values (0) = dr("分数1")
Values (1) = dr("分数2")
Values (2) = dr("分数3")
Values (3) = dr("分数4")
Values (4) = dr("分数5")
Dim MaxVal As Double 
Dim MinVal As Double
Dim SumVal As Double 
For i As Integer = 0 To Values.Length - 1
    MaxVal = Math.Max(MaxVal, Values(i))
    MinVal = Math.Min(MinVal, Values(i))
    SumVal = SumVal + Values(i)
Next
dr("最高分") = MaxVal
dr("最低分") = MinVal
dr("总分") = SumVal

为什么使用以上代码,最高分和总分都能出来,最低分总是为0,请教!

--  作者:有点蓝
--  发布时间:2023/6/4 19:48:00
--  
Dim MinVal As Double
改为
Dim MinVal As Double = 9999