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

UptoLike

ВУЗ: 

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

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

Рубрика: 

68
' фиксирование и запись в файл номера текущего курса
NK = R.Kurs
PrintLine(F4, "Курс " + CStr(NK))
Do While NK = R.Kurs And i <= N
' фиксирование и запись в файл номера
' текущей группы
NG = R.Group
PrintLine(F4, vbTab + "Группа " + CStr(NG))
' порядковый номер студентов в группе
' начинается с единицы
NPP = 1
Do While NK = R.Kurs And NG = R.Group
' запись в файл ФИО студента
PrintLine(F4, vbTab + vbTab + CStr(NPP) + "." + _
vbTab + R.FIO)
NPP = NPP + 1
i = i + 1
' если еще есть записи, то считываем
' следующую, иначе выходим из цикла
If i <= N Then
R.ReadFromFile(f1, Ind(i))
Else
Exit Do
End If
Loop
' пропуск строки между списками различных групп
PrintLine(F4, "")
Loop
Loop
' файла отчета закрывается
FileClose(F4)
' загрузка только что созданного файла в RichTextBox1
RichTextBox1.LoadFile(Path2, _
RichTextBoxStreamType.PlainText)
richName = Path2
' показ элемента RichTextBox1 и кнопки «Сохранить отчет»
RichTextBox1.Visible = True
cmdSaveOtch.Visible = True

Страницы