data report

[13GHOST]

Подскажите, вот такая ситуация: у меня в программе есть массив своего типа. Я бы хотел его распечатать как отчет с помощью data report, чтобы каждый елемент этого массива был в одной строке отчета. Это возможно?
Заранее спасибо.

[EUGY]

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


Option Explicit

Private Type MYTYPE
    q1 As Integer
    q2 As String
End Type

Private TP(10) As MYTYPE

Private Sub Form_Load()
    Dim i As Integer
    For i = 0 To 9
        TP(i).q1 = i
        TP(i).q2 = "qwerty" & i
    Next
End Sub

Private Sub Command1_Click()
    Dim i As Integer
    Dim rec As New ADODB.Recordset

    rec.Fields.Append "q1", adBSTR
    rec.Fields.Append "q2", adBSTR
    rec.Open

    For i = 0 To 9
        rec.AddNew
        rec(0) = TP(i).q1
        rec(1) = TP(i).q2
    Next
    ' помести  два RptTexBox  в секцию Detail
    DataReport1.Sections(3).Controls(1).DataField = "q1"
    DataReport1.Sections(3).Controls(2).DataField = "q2"
   
    Set DataReport1.DataSource = rec
    DataReport1.Show 1
End Sub

[13GHOST]

оригинальное решение огромное спасибо!