Что этот код делает?

[zaf]

Код: Выделить всё


Private Sub Command1_Click()
Dim j As Integer, i As Integer
Data1.Recordset.MoveFirst 'Считываем базу данных из Excel - Запрос заказов
       For i = 0 To 4
            For j = 0 To 5
                RasstTar(j, i) = Text1(j).Text
                List1(j).AddItem RasstTar(j, i)
            Next j
                Data1.Recordset.MoveNext
           Next i

End Sub

Можете обяснить подробней какая часть за что отвечает?
plzzz

[Al Khamid]

[zaf]

А вот интересно, успевают ли текстбоксы обновиться при таком раскладе? Пробовать что-то не хочется. Попробуй, а?

угу
спс

[zaf]

У мя в форме есть Data1

при нажатии на его стрелки в текст боксы из базы вставляются соответствующие значения

при этом в коде про это нече не говорится...

P.S. разбираю готовую курсовую (пример)