Приложение Д (Разработка ЭИС Информационная поддержка принятия управленческих решений для руководства ООО Цветметснаб), страница 2
Описание файла
Файл "Приложение Д" внутри архива находится в следующих папках: Разработка ЭИС Информационная поддержка принятия управленческих решений для руководства ООО Цветметснаб, Приложения. Документ из архива "Разработка ЭИС Информационная поддержка принятия управленческих решений для руководства ООО Цветметснаб", который расположен в категории "". Всё это находится в предмете "дипломы и вкр" из 12 семестр (4 семестр магистратуры), которые можно найти в файловом архиве РТУ МИРЭА. Не смотря на прямую связь этого архива с РТУ МИРЭА, его также можно найти и в других разделах. Архив можно найти в разделе "остальное", в предмете "диплом" в общих файлах.
Онлайн просмотр документа "Приложение Д"
Текст 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