Problem with parameter field
Hi to all:
I have this code in VB that extract from listview values to CR parameter fields...I have in one listview.items 3 records that have the same value and CR returns a error when,in the cicle For Next, pass for the same value...The error is:"The value you want include is already exists"...
Can anyone tell me what is the problem?We could not have records with the same values?Wich way I can resolve this?
Code:
Dim Report As New CRAXDRT.Application
Dim Rpt As CRAXDRT.Report
Dim formula As CRAXDRT.FormulaFieldDefinition
Set Report = New CRAXDRT.Application
Set Rpt = Report.OpenReport(App.Path & "\Relatório_Aves_1selecao.rpt")
If (Rpt.HasSavedData) Then Rpt.DiscardSavedData
Rpt.EnableParameterPrompting = False
For s = 1 To ListView1(1).ListItems.Count
Rpt.ParameterFields(1).AddCurrentValue (ListView1(1).ListItems.Item(s))
Rpt.ParameterFields(2).AddCurrentValue (ListView1(1).ListItems.Item(s).SubItems(1))
Rpt.ParameterFields(3).AddCurrentValue (ListView1(1).ListItems.Item(s).SubItems(2))
Rpt.ParameterFields(4).AddCurrentValue (ListView1(1).ListItems.Item(s).SubItems(3))
Rpt.ParameterFields(5).AddCurrentValue (ListView1(1).ListItems.Item(s).SubItems(4))
Rpt.ParameterFields(6).AddCurrentValue (ListView1(1).ListItems.Item(s).SubItems(5))
Next
setviewersize
CRViewer1.ReportSource = Rpt
CRViewer1.ViewReport
Thanks