Send Values to an Rpt from a ListView

[sacramento]

Hi:

I want to send values that I have in a listView object,to a report and I have try this:

Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report


Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Super8-ClassificacaoFinal.rpt")


For s = 1 To FrmSuper8.ListView1(1).ListItems.Count

Rpt.ParameterFields(1).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s))  
Rpt.ParameterFields(2).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(2))  
Rpt.ParameterFields(3).AddCurrentValue (FrmSuper8.ListView1(1).ListItems.Item(s).SubItems(3))  

Next

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

But the report only show the last value...

Any help please?

Thanks

[sacramento]

Hi:

I have the parameter field "nome" in the section detail in my Rpt,and setting for multiple values,but the code bellow only extract to rpt the first line...(London)
Can anyone tell me what is wrong?
Should extract the 3 lines and present in Rpt no?

Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report

Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Super8-ClassificacaoFinal.rpt")

Rpt.ParameterFields.GetItemByName("nome").AddCurrentValue "London"
Rpt.ParameterFields.GetItemByName("nome").AddCurrentValue "Sydney"
Rpt.ParameterFields.GetItemByName("nome").AddCurrentValue "Hong Kong"

CRViewer1.ReportSource = Rpt

CRViewer1.ViewReport

Thanks

[alMubarmij]

Can I do a same way to display a DataReport by clicking on ListView Item ?

[alMubarmij]

http://vbforums.com/showthread.php?t=586628