以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- [求助]比较一行中几个列的最大值和最小值 (http://foxtable.net/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
|