VB6 with CR9

[engnouna]

Hi
I have a listbox that contains up to 20 items.I want to write each item into a crystal report 9 report
The code I will be using is:

For i=0 to lstitems.listcount-1
slist=lstitems.list(i)
...'here I want to add the slist into CR9
...'here's the rest of my code
Next i

Can anyone help me because i'm new to CR9.

thanks in advance

[Pasvorto]

You have a couple options.

1) you can call the report using a "select- like" statement:

Report.RecordSelectionFormula = "{DestroyAuth.SEQ} = " & CLng(lblSequence.Caption)

2) you add a parameter to the report and pass the parameter value:

Report.ParameterFields.Item(1).AddCurrentValue cust

[RobDog888]

You can also use an ADO recordset for the DataSource of the report and in preparing it you can use your list items to build a sql select statement as your recordset source.

[engnouna]

I tried

For i=0 to list1.list(i)
Report.ParameterFields.Item(1).AddCurrentValue list1.list(i)
Next i

It returned to me:

"Script out of range"

What's wrong?

Thanks

[RobDog888]

You need to .Add a parameter first before you can reference it.

[engnouna]

RobDog888,I used ur example of VB6/Crystal Report present in your signature in order to display a recordset,what i want also is to display the content of a listbox in the report footer,so I added a parameter to the report and place it in the page footer(When creating the parameter i entered its name and type and I checked discrete value).When I execute the following code:

Rs.Open str2, cnn, adOpenStatic, adLockOptimistic
Set oApp = New CRAXDRT.Application
    Set oReport = oApp.OpenReport(App.Path & "\Report2.rpt", 1)
    For l = 0 To List1.List(l)
    oReport.ParameterFields.Item(1).AddCurrentValue List1.List(l)
    Next l
    oReport.Database.SetDataSource Rs, 3, 1
    crvMyCRViewer.ReportSource = oReport
    crvMyCRViewer.ViewReport
    crvMyCRViewer.Refresh
Rs.Close
 
End Sub

It returned to me "Type mismatch" and it highlighted the For loop.
So I removed the For loop and I replaced it by:
oReport.ParameterFields.Item(1).AddCurrentValue List1.List(0)

the code prompted me to enter a discrete value of the parameter,I entered a string and It was added to the report's footer.

How should I create the parameter?discrete value,range value or ...

and what's wrong with the for loop?

Thanks in advance

[RobDog888]

Did you make it a Text/String type in CR? If its a footer then your only placing in one parameter so why the loop? You should always .Clear before you .Add the parameter value.