Приложение Д (1089417), страница 2
Текст из файла (страница 2)
End If
End Sub
Public Class Table4CountRating
Implements IComparer
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim ax As ReportDS.Report4TableRow = x
Dim ay As ReportDS.Report4TableRow = y
If ax.BLOCK_COUNT > ay.BLOCK_COUNT Then : Return -1
ElseIf ax.BLOCK_COUNT < ay.BLOCK_COUNT Then : Return 1
Else : Return 0
End If
End Function
End Class
Public Class Table4SummaRating
Implements IComparer
Public Function Compare(ByVal x As Object, ByVal y As Object) As Integer Implements System.Collections.IComparer.Compare
Dim ax As ReportDS.Report4TableRow = x
Dim ay As ReportDS.Report4TableRow = y
If ax.SUMM_COUNT > ay.SUMM_COUNT Then : Return -1
ElseIf ax.SUMM_COUNT < ay.SUMM_COUNT Then : Return 1
Else : Return 0
End If
End Function
End Class
End Class
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
