老师，
问题一:参考最大值计算方法，改了下面代码计算“最小值”，然而下面代码，不是真实最小值，都是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
加好友 
发短信
Post By：2021/3/9 17:55:00 [显示全部帖子]
