VB.NET передает проверенные значения элементов (параметры) в отчет Crystal, но он показывает только результат (Отчет) для последнего проверенного значения в WinForms

Question

В отчете отображается только последнее проверенное значение из списка, как показано на прикрепленном изображении. Я застрял там и ничего не нашел полезного в Интернете заранее спасибо

Вот код

        'Report variables
        Dim crParameterFieldDefinitions As ParameterFieldDefinitions
        Dim crParameterFieldDefinition As ParameterFieldDefinition
        Dim crParameterValues As New ParameterValues
        Dim crParameterDiscreteValue As New ParameterDiscreteValue

        'Load Report
        Dim crTestReport As New ReportDocument
        'Dim filePath As String = Application.StartupPath & "\" & "crTestReport.rpt"
        crTestReport.Load("crTestReport.rpt")

        'Parameteres
        crParameterFieldDefinitions = crTestReport.DataDefinition.ParameterFields
        crParameterFieldDefinition = crParameterFieldDefinitions("@spaceid")
        crParameterValues = crParameterFieldDefinition.CurrentValues

        Dim i As Integer
        For i = 0 To Me.GridView1.RowCount - 1
            If Not IsDBNull(GridView1.GetDataRow(i).Item(3)) Then
                If GridView1.GetDataRow(i).Item(3) = True Then
                    crParameterDiscreteValue = New ParameterDiscreteValue
                    crParameterDiscreteValue.Value = GridView1.GetDataRow(i).Item(0)
                    crParameterValues.Add(crParameterDiscreteValue)
                End If
            End If
        Next

        crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

        crTestReport.SetDatabaseLogon("sa", "PASSWORD")

        frm.crReportViewer.ReportSource = crTestReport
        frm.crReportViewer.Refresh()
        frm.Show()