在VB.net的from multiple列中查找并突出显示最大值

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    ' 填充DataGridView控件，这里使用手动添加数据的方式
    DataGridView1.Rows.Add("John", 25, 180)
    DataGridView1.Rows.Add("Jane", 30, 165)
    DataGridView1.Rows.Add("Mike", 28, 175)
    DataGridView1.Rows.Add("Emily", 32, 160)

    ' 调用查找最大值的方法
    Dim maxRowIndex As Integer = FindMaxValueRowIndex(DataGridView1)

    ' 突出显示最大值所在的行
    If maxRowIndex >= 0 Then
        DataGridView1.Rows(maxRowIndex).DefaultCellStyle.BackColor = Color.Yellow
    End If
End Sub

Private Function FindMaxValueRowIndex(dataGridView As DataGridView) As Integer
    Dim maxRowIndex As Integer = -1
    Dim maxValue As Double = Double.MinValue

    For Each row As DataGridViewRow In dataGridView.Rows
        Dim value1 As Double = Convert.ToDouble(row.Cells(1).Value)
        Dim value2 As Double = Convert.ToDouble(row.Cells(2).Value)

        If value1 > maxValue Then
            maxValue = value1
            maxRowIndex = row.Index
        End If

        If value2 > maxValue Then
            maxValue = value2
            maxRowIndex = row.Index
        End If
    Next

    Return maxRowIndex
End Function