以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最大值 最小值,自定义表格式样式  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=151114)

--  作者:天宇科技
--  发布时间:2020/6/15 16:17:00
--  最大值 最小值,自定义表格式样式
我想在评委1-评委7的评分中,在每行中找到最大值和最小值,分别用自定义样式 e.Style = "最大值" ,e.Style = "最小值",显示出来,请问应该怎样弄


If e.Col.Name.Contains("评委") Then
    Dim min As Double = 99999
    Dim max As Double
    For Each dc As Col In e.Table.Cols
        If dc.Name.Contains("评委") Then
            If e.Row(dc.Name) > max Then
                e.Style = "最大值"
                If e.Row(dc.Name) < min Then
                    e.Style = "最小值"
                End If
            End If
End If
        Next
    End If

--  作者:天宇科技
--  发布时间:2020/6/15 19:36:00
--  
蓝版,能回复下吗
--  作者:有点蓝
--  发布时间:2020/6/15 20:17:00
--  
不是已经有最大值和最小值列了吗?直接判断不就行了

If e.Col.Name.Contains("评委") Then
            If e.Row(e.Col.Name) = e.Row(“最大值”)Then
                e.Style = "最大值"
            End If
            If e.Row(e.Col.Name) = e.Row(“最值”)Then
                e.Style = "最小值"
            End If
    End If