以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  这个代码错，请纠正，谢谢  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=161202)
--  作者：lin98
--  发布时间：2021/3/9 17:55:00
--  这个代码错，请纠正，谢谢
e.DataRow("最大值")  = Math.Max(e.DataRow("值1"),Math.Max(e.DataRow("值2") ,e.DataRow("值3")),Math.Max(e.DataRow("值4") ,e.DataRow("值5")))
--  作者：有点蓝
--  发布时间：2021/3/9 20:12:00
--  
Dim mx As Double = 0
For i As Integer = 1 To 5
    If mx < e.DataRow("值" & i)
        mx = e.DataRow("值" & i)
    End If
Next
e.DataRow("最大值")  = mx
--  作者：lin98
--  发布时间：2021/3/10 4:11:00
--  
老师，
问题一:参考最大值计算方法，改了下面代码计算“最小值”，然而下面代码，不是真实最小值，都是0，如何实现计算最小值？

Dim mi As Double = 0
For i As Integer = 1 To 5
    If mi > e.DataRow("值" & i)
        mi = e.DataRow("值" & i)
    End If
Next
e.DataRow("最小值")  = mi


问题二：下面代码，三个值是可以，换成5个值，红色字体，是就是错，如何改？
Select Case e.DataCol.Name
    Case  "值1","值2","值3","值4","值5"
        
        e.DataRow("最大值")  = Math.Max(e.DataRow("值1"),Math.Max(e.DataRow("值2") ,e.DataRow("值3")))
        e.DataRow("最小值")  = Math.Min(e.DataRow("值1"),Math.Min(e.DataRow("值2") ,e.DataRow("值3")))
        \'e.DataRow("最大值")  = Math.Max(e.DataRow("值1"),Math.Max(e.DataRow("值2") ,e.DataRow("值3")),Math.Max(e.DataRow("值4") ,e.DataRow("值5")))
        \'e.DataRow("最小值")  = Math.Min(e.DataRow("值1"),e.DataRow("值2") ,e.DataRow("值3"),e.DataRow("值4") ,e.DataRow("值5"))
        Case 
           
End Select
--  作者：有点蓝
--  发布时间：2021/3/10 8:38:00
--  
1、Dim mi As Double = 99999999

2、请改为2楼的方式判断