'С условием задания
'Условие ЗАДАНИЯ создания Справки №1
If DATA1.Recordset.Fields(5).Value < DATA1.Recordset.Fields(6).Value _ And _
DATA1.Recordset.Fields(6).Value < _
DATA1.Recordset.Fields(7).Value Then
FlMN.Rows = FlMN.Rows + 1 'добавление строки
'в сетку FlMN
Nstr = Nstr + 1 'Формирование номера
'следующей строки сетки FlMN
FlMN.TextMatrix(Nstr, 0) = Nstr
For J = 1 To 5 ‘Цикл заполнения сетки FlMN
‘записями в соответствии с условием Справки №1
If J < 3 Then
FlMN.TextMatrix(Nstr, J) = _
DATA1.Recordset.Fields(J - 1).Value
Else
FlMN.TextMatrix(Nstr, J) = _
DATA1.Recordset.Fields(J + 2).Value
End If
Next J
End If
DATA1.Recordset.MoveNext 'переход к следующей записи таблицы ISP
Next I
End Sub
6.1.3. Экранная форма с результатами Справки №1 по таблице isp
Рис. 6.1. Экранная форма с результатами Справки №1 по таблице ISP
6.2. Создание Справки №2 по таблице det
Справка 2. Сведения о деталях с произвольно заданными расценками.
Макет Справки 2:
|
Название детали |
Расценки (за 1 деталь) |
Вес детали (кг.) |
|
|
|
|
6.2.1. Алгоритм создания Справки №2 по таблице det
Описание данных и настройки интерфейса
Kzap
= Data2.Recordset.Recordcount
Определение количества записей
таблицы DET
FlMN.Rows
= 1 FlMN.Cols
= 4
Начальное количество строк Справки №2
Количество колонок Справки №2
FlMN.TextMatrix(0,
0) = “ № п.
п.
“