Отчет с переменным количеством столбцов

Вторник, 29 Августа 2017 г. 02:00 + в цитатник

Форумяне,подскажите что не так-в области данных отображается одна(последняя) запись рекордсета (все используемые переменные объявлены в разделе описаний модуля и инициализированы в Report_Open)

Private Sub ОбластьДанных_Format(Cancel As Integer, FormatCount As Integer)
Dim i As Integer
    Do Until rstReport.EOF
        For i = 0 To intColumnCount - 1
            Me("ctl" + Format(i)) = rstReport(i)
        Next intX
       rstReport.MoveNext
    Loop
End Sub