[求助]比较一行中几个列的最大值和最小值 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

我想比较同一行中的几个列的值，取他们的最大值，最小值，总和。有下面的代码：

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)

dr("最高分") = MaxVal

dr("最低分") = MinVal

dr("总分") = SumVal

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

主题：[求助]比较一行中几个列的最大值和最小值