Использование средств Visual Basic .NET в создании информационных систем - 76 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

76
' то файл открывается
F4 = FreeFile()
FileOpen(f4, frmMenu.SaveFileDialog1.FileName, _
OpenMode.Output)
' и в него выводятся все ячейки таблицы
With GridView1
For i = 0 To .ColumnCount - 1
Print(F4, .Columns(i).Name + vbTab)
Next i
PrintLine(F4, "")
For j = 0 To .RowCount - 1
For i = 0 To .ColumnCount - 1
Print(F4, CStr(.Rows(j).Cells(i).Value) + vbTab)
Next i
PrintLine(F4, "")
Next j
End With
' файл отчета закрывается
FileClose(F4)
' сообщение об успешном завершении сохранения отчета
MsgBox("Отчет сохранен", vbOKOnly + vbInformation, _
"Сохранение")
End If
End Sub
А теперь приведем код процедуры обработки события, соответствующего
выбору пункта меню «Отчеты Æ Вычисление среднего балла». В этой процедуре
предусмотрены две возможности вывода результатов: в виде, упорядоченном по
курсу, группе и фамилиям студентов; или в виде, упорядоченном по курсу, группе
и убыванию среднего балла. Код процедуры снабжен подробными комментария-
ми.
Private Sub mnuQueryBallItem_Click(ByVal sender As _
System.Object, ByVal e As System.EventArgs) _
Handles mnuQueryKolItem.Click
Dim i As Integer
Dim Ind(Nmax) As Integer
Dim KeyK(Nmax) As Single
Dim KeyG(Nmax) As Single
Dim KeyFIO(Nmax) As String

Страницы