CRIAR LABEL EM DATA REPORT EM RUN TIME

HARRY631 16/11/2009 18:28:35
#327892
Olá pessoal!

Eu estou criando um pequeno sisteminha aqui e eu estou usando o Data Report para criar um Relatório.

Neste Relatório, ele pega os dados de uma ListView(ListView1) e passa pro Data Report.
Até aí tudo bem, mas o problema é esse:

- Tem uma outra ListView(ListView2), só que antes de passar os dados da ListView2, eu quero colocar uma label no Data Report para identificar os dados abaixo!


Bom, eu sou novato no Visual Basic e não estou conseguindo fazer isso, alguém tem alguma ideia do que posso fazer?


Código que eu estou usando para gerar o relatório:

rs.Open


For i = 1 To ListView1.ListItems.Count
     rs.AddNew
    
     rs.Fields(0) = ListView1.ListItems(i).Text
     rs.Fields(1) = ListView1.ListItems(i).SubItems(1)
     rs.Fields(2) = ListView1.ListItems(i).SubItems(2)
     rs.Fields(3) = ListView1.ListItems(i).SubItems(3)
     rs.Fields(4) = ListView1.ListItems(i).SubItems(4)
     rs.Fields(5) = ListView1.ListItems(i).SubItems(5)
    
    rs.Update
Next

Set DataReport2.DataSource = rs
DataReport2.Show


Obrigado ^^
GNCNET 16/11/2009 22:27:18
#327900 Resposta escolhida
pode buscar datareport no site que você encontrará exemplos
HARRY631 17/11/2009 13:13:02
#327937
Eu tentei encontrar uns exemplos aqui no fórum, só que não funciona!
GNCNET 22/11/2009 15:34:23
#328362
Vê se funciona:

Private Sub cmdShow_Click()
SortRecords
With rptDemo
[ô] Bind the Recordset to the Report
Set .DataSource = rsItems
.DataMember = rsItems.DataMember
.Sections([Ô]Section4[Ô]).Controls([Ô]lblAddress[Ô]).Caption = [Ô]101 Harare Str.[Ô] & vbCrLf & [Ô]Zimbabwe[Ô] & vbCrLf & [Ô]Phone: +26311862208[Ô]
[ô] Update the lblRecCount control on the report (Page Footer Section) to show RecordCount
.Sections([Ô]Section5[Ô]).Controls([Ô]lblRecCount[Ô]).Caption = rsItems.RecordCount & [Ô] items listed[Ô]
DoEvents
.Show
End With
End Sub
Tópico encerrado , respostas não são mais permitidas
Voltar