HELP: VB6 Parameter Field in Crystal Report with Multiple Discrete Value

[elbtenorio]

Pahelp po sa VB6 hindi po kasi properly nag aadd ng values sa parameter ng crystal report with multiple values. lagi po ung last value lang ang kinukuha niya. ito po ung code sa baba:

With CRx
.Reset
.ReportFileName = App.path & "\reports\test.rpt"

For i = 1 To lvw.ListItems.Count
If lvw.ListItems(i).Checked Then
.ParameterFields(1) = "branchID;" & lvw.ListItems(i) & ";True"
End If
Next i

'print preview
.Destination = crptToWindow

'print directly
'.Destination = crptToPrinter

.WindowShowSearchBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.PrintReport
End With

ung selection po dya is listview po with checkbox. Thanks po sa responses.

 

[knives645]

Pahelp po sa VB6 hindi po kasi properly nag aadd ng values sa parameter ng crystal report with multiple values. lagi po ung last value lang ang kinukuha niya. ito po ung code sa baba:

With CRx
.Reset
.ReportFileName = App.path & "\reports\test.rpt"

For i = 1 To lvw.ListItems.Count
If lvw.ListItems(i).Checked Then
.ParameterFields(1) = "branchID;" & lvw.ListItems(i) & ";True"
End If
Next i

'print preview
.Destination = crptToWindow

'print directly
'.Destination = crptToPrinter

.WindowShowSearchBtn = True
.WindowShowPrintSetupBtn = True
.WindowState = crptMaximized
.PrintReport
End With

ung selection po dya is listview po with checkbox. Thanks po sa responses.

Yung 1 palitan mo ng i

.ParameterFields(i)

 

[elbtenorio]

Yung 1 palitan mo ng i

.ParameterFields(i)

opo sir ginawa ko na din po yan. kaso di parin po nag work.. ito po ung code ko po:

paramX = 7
For i = 1 To lvw.ListItems.Count
If lvw.ListItems(i).Checked Then
paramX = paramX + 1
.ParameterFields(paramX) = "branchID;" & lvw.ListItems(i) & ";True"
End If
Next i

kaya po 7 ung nasa paramX kasi may 7 parameter fields pa po before nitong Multiple Value paramater in crystal report