Цикл формирования Справки № 1 в соответствии с условием задания
Условие ЗАДАНИЯ создания Справки № 1
нет
да
FlMN.Rows
= FlMN.Rows + 1
Добавление
строки в сетку
FlMN
Формирование
номера Nstr
следующей
строки сетки
FlMN
FlMN.TextMatrix(Nstr,
0) = Nstr
Цикл заполнения сетки FlMn записями в соответствии с условием Справки № 1
нет
да
Next
J Data1.Recordset.MoveNerst
Next
I
6.1.2. Программа создания Справки №1 по таблице isp
Private Sub mnuSpr1_Click()
Dim I As Integer, J As Integer 'индексы
Dim Kzap As Integer 'количество записей в таблице ISP
Dim Nstr As Integer 'номера строк Справки №1
LbND.Caption = "Справка №1" 'настройки интерфейса
LbSInf.Caption = "Список Исполнителей, у которых производство деталей _
в последние 3 месяца монотонно растёт"
TxtZmin.Visible = False
TxtZmax.Visible = False
FlMN.ColWidth(0) = 550
FlMN.ColWidth(1) = 1850
Kzap = DATA1.Recordset.RecordCount 'определение количества записей
' таблицы ISP
FlMN.Rows = 1 'начальное количество строк Справки №1
FlMN.Cols = 6 'количество колонок Справки №1
FlMN.TextMatrix(0, 0) = "№ п.п." 'наименование 0 - ой колонки сетки FlMN
FlMN.TextMatrix(0, 1) = DATA1.Recordset.Fields(0).Name
FlMN.TextMatrix(0, 2) = DATA1.Recordset.Fields(1).Name
FlMN.TextMatrix(0, 3) = DATA1.Recordset.Fields(5).Name
FlMN.TextMatrix(0, 4) = DATA1.Recordset.Fields(6).Name
FlMN.TextMatrix(0, 5) = DATA1.Recordset.Fields(7).Name
DATA1.Recordset.MoveFirst 'переход к первой записи таблицы ISP
Nstr = 0
For I = 1 To Kzap 'Цикл формирования Справки №1 в соответствии