Цикл заполнения сетки FlMn записями в в соответствии с условием Справки № 2

For J = 1 To 3

Next J

Data2.Recordset.MoveNext

Next I

6.2.2. Программа создания Справки №2 по таблице det

Private Sub mnuSpr2_Click()

Dim I As Integer, J As Integer 'индексы

Dim Kzap As Integer 'количество записей в таблице DET

Dim Nstr As Integer 'номера строк таблицы "Справка №2"

Dim RascMin As Integer ‘минимальная расценка

Dim RascMax As Integer ‘максимальная расценка

LbND.Caption = "СПРАВКА №2" 'настройка интерфейса

LbSInf.Caption = " Детали с заданными расценками"

FlMN.ColWidth(0) = 550 : FlMN.ColWidth(1) = 1800

Kzap = DATA2.Recordset.RecordCount 'определение количества записей

'таблицы DET

FlMN.Rows = 1 'начальное количество строк Справки №2

FlMN.Cols = 4 'количество колонок Справки №2

FlMN.TextMatrix(0, 0) = "№ п.п." 'наименование 0 - ой колонки сетки FlMN

FlMN.TextMatrix(0, 1) = DATA2.Recordset.Fields(1).Name

FlMN.TextMatrix(0, 2) = DATA2.Recordset.Fields(2).Name

FlMN.TextMatrix(0, 3) = DATA2.Recordset.Fields(3).Name

DATA2.Recordset.MoveFirst 'переход к первой записи таблицы DET

Nstr = 0

RascMin = InputBox(“Укажите меньшую величину расценки”)

TxtZmin.Text=”Минимальная расценка RascMin = ” & RascMin

RascMax = InputBox(“Укажите большую величину расценки”)

TxtZmax.Text=”Максимальная расценка RascMax = ” & RascMax

For I = 1 To Kzap 'Цикл формирования Справки №2 в соответствии

'с условием ЗАДАНИЯ

'Условие ЗАДАНИЯ формирования Справки №2

If DATA2.Recordset.Fields(2).Value >= RascMin And _

DATA2.Recordset.Fields(2).Value <= RascMax Then

FlMN.Rows = FlMN.Rows + 1 'добавление строки

'в сетку FlMN

Nstr = Nstr + 1 'Формирование номера

'следующей строки сетки FlMN

FlMN.TextMatrix(Nstr, 0) = Nstr

For J = 1 To 3 ‘Цикл заполнения сетки FlMN _

записями в соответствии с условием Справки №2

FlMN.TextMatrix(Nstr, J) = _

DATA2.Recordset.Fields(J).Value

Next J

End If

DATA2.Recordset.MoveNext 'переход к следующей записи таблицы DET

Next I

End Sub

6.2.3. Экранная форма с результатами Справки №2 по таблице det

Рис. 6.2.3. Экранная форма с результатами Справки №2 по таблице DET