Dim paramFields As New ParameterFields()
Dim paramField As New ParameterField()
Dim discreteVal As New ParameterDiscreteValue()
paramField = New ParameterField
paramField.ParameterFieldName = "ArtikelOmschrijving"
For i As Integer = 0 To dgArtikelen.RowCount - 2
discreteVal = New ParameterDiscreteValue()
discreteVal.Value = dgArtikelen.Rows(i).Cells(2).Value
paramField.CurrentValues.Add(discreteVal)
Next
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.ReportSource = "C:\Report.rpt"
CrystalReportViewer1.Refresh()