'rosso1
                My.Application.DoEvents()
                crParameterFieldDefinitions = report.DataDefinition.ParameterFields
                crParameterFieldDefinition = crParameterFieldDefinitions.Item("rosso1")
                crParameterValues = crParameterFieldDefinition.CurrentValues
                crParameterValues.Clear()
                crParameterDiscreteValue = New ParameterDiscreteValue()
                crParameterDiscreteValue.Value = valore
                crParameterValues.Add(crParameterDiscreteValue)
                crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
                ' rosso2
                crParameterFieldDefinitions = report.DataDefinition.ParameterFields
                crParameterFieldDefinition = crParameterFieldDefinitions.Item("rosso2")
                crParameterValues = crParameterFieldDefinition.CurrentValues
                crParameterValues.Clear()
                crParameterDiscreteValue = New ParameterDiscreteValue()
                crParameterDiscreteValue.Value = valore2
                crParameterValues.Add(crParameterDiscreteValue)
                crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)
                ' mese/anno
                crParameterFieldDefinitions = report.DataDefinition.ParameterFields
                crParameterFieldDefinition = crParameterFieldDefinitions.Item("meseanno")
                crParameterValues = crParameterFieldDefinition.CurrentValues
                crParameterValues.Clear()
                crParameterDiscreteValue = New ParameterDiscreteValue()
                crParameterDiscreteValue.Value = "- " & periodo.Value.Month.ToString.PadLeft(2, "0"c) & "/" & periodo.Value.Year.ToString
                crParameterValues.Add(crParameterDiscreteValue)
                crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)

tutto questo in un ciclo for each