DATA REPORT LISTVIEW

GNCNET 15/11/2009 19:33:03
#327788
Com o código abaixo, o problema é que quero que APENAS os itens no listview repitam em sequencia, mas as imagens e o nome do cliente se repetem tantos quantos forem os itens do list.

Private Sub btnReprint_Click() [ô]/-/ Gerar Relatório

Dim dtx As ADODB.Recordset
Set dtx = New ADODB.Recordset

[ô]Recordset desconectado
dtx.ActiveConnection = Nothing
dtx.CursorLocation = adUseClient

[ô]Criar colunas em Run-Time
dtx.Fields.Append [Ô]Nome[Ô], adChar, 100
dtx.Fields.Append [Ô]Procedimento[Ô], adChar, 100
dtx.Fields.Append [Ô]Total[Ô], adChar, 100

[ô]Passar o recordset como parâmetro para o Report
Set Dt_proc.DataSource = dtx
Set Dt_proc.Sections([Ô]Section1[Ô]).Controls([Ô]d18[Ô]).Picture = d(18).Picture
Set Dt_proc.Sections([Ô]Section1[Ô]).Controls([Ô]d17[Ô]).Picture = d(17).Picture

Set Dt_proc.Sections([Ô]Section4[Ô]).Controls([Ô]img_logo[Ô]).Picture = LoadPicture(App.Path & [Ô]\IMAGENSPACIENTES\[Ô] & [Ô]logotipo.jpg[Ô])

[ô]Abrir Recordset e popular em Run-Time

dtx.Open
For BAM = 1 To Me.lv1.ListItems.Count
dtx.AddNew
dtx.Fields(0) = cmb_clientes
dtx.Fields(1) = lv1.ListItems(BAM).ListSubItems(4).Text [ô]procedimento
dtx.Fields(7) = valor_tt.Text

dtx.Update
Next [ô]BAM

Set Dt_proc.DataSource = dtx
Dt_proc.Show

End Sub

Um problema semelhante foi reportado a poucos dias:
http://www.vbmania.com.br/pages/index.php?varModulo=Forum&varMethod=Abrir&varID=327477&varWorld=

Agradeço, desde já as contribuições.
Gardel
GNCNET 16/11/2009 16:29:36
#327877
Um ajudinha por favor...
GNCNET 20/11/2009 21:24:17
#328317
Alguém pode pensar uma solução
Agradecido
TECLA 20/11/2009 22:10:04
#328322 Resposta escolhida
Posta um PRINT com o resultado que está obtendo com o código postado.
Fica mais fácil compreender o problema.
Tópico encerrado , respostas não são mais permitidas
Voltar