data report

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
13GHOST
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 305
Зарегистрирован: 09.01.2004 (Пт) 12:48

data report

Сообщение 13GHOST » 10.12.2007 (Пн) 9:54

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

EUGY
Бывалый
Бывалый
Аватара пользователя
 
Сообщения: 214
Зарегистрирован: 09.11.2006 (Чт) 22:51
Откуда: Мурманск

Сообщение EUGY » 10.12.2007 (Пн) 11:57

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

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
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 305
Зарегистрирован: 09.01.2004 (Пт) 12:48

Сообщение 13GHOST » 10.12.2007 (Пн) 13:21

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


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Majestic-12 [Bot], Yandex-бот и гости: 2

    TopList