Foxtable(狐表)用户栏目专家坐堂 → [求助]比较一行中几个列的最大值和最小值


  共有4173人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
jjjeyes
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:305 积分:2695 威望:0 精华:0 注册:2011/10/29 16:26:00
[求助]比较一行中几个列的最大值和最小值  发帖心情 Post By: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,请教!

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:111373 积分:566929 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/6/4 19:48:00 [只看该作者]

Dim MinVal As Double
改为
Dim MinVal As Double = 9999

 回到顶部