从数组中获取最大值，其中可能存在多个最大值

Question

我已经从数据库中创建了一个年龄数组，并希望找到数组中的最大值。到目前为止我已经制作了这段代码......

thirdTabFragment

此代码有效，但是，如果数组中有两个或更多最大值，它仍将只显示其中一个最大值。我需要它来显示所有最大值。提前感谢：）

Answer 1

我已经给出了答案。您所要做的就是使用arrAge（maxindex）为数据库创建一个过滤器。它将显示数据库中共享最大年龄的所有记录。

代码是这样的：        Dim MaxAge，MaxIndex，MaxCount As Integer         Dim Length As Integer = Me.listName.Items.Count - 1

    MaxAge = arrAge(1)
    MaxIndex = 1

    For MaxCount = 2 To Length
        If MaxAge < arrAge(MaxCount) Then
            MaxAge = arrAge(MaxCount)
            MaxIndex = MaxCount
        End If
    Next

    Me.PatientListingBindingSource.Filter = "pAge = '" & arrAge(MaxIndex) & "' "