Dim crParameterFieldLocation As ParameterFieldDefinition = Report.DataDefinition.ParameterFields.Item("StartPageNum")
        Dim crParameterValues As ParameterValues = crParameterFieldLocation.CurrentValues
        Dim crParameterDiscreteValue As ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue
        crParameterDiscreteValue.Value =  127 
        crParameterValues.Add(crParameterDiscreteValue)
        crParameterFieldLocation.ApplyCurrentValues(crParameterValues)

        CrystalReportViewer1.ReportSourceID = ""
        ''загружаем обьект отчета в инструментальную панель (CrystalReportViewer)
        CrystalReportViewer1.ReportSource = Reporter.GetReport(DynamicReportSelector.SelectedValue, XmlDataSource1.DataFile, CInt(txStartPage.Text))
        'Дали отчету параметры
        Dim ExecParms As CrystalDecisions.Shared.ParameterValues = New CrystalDecisions.Shared.ParameterValues()
        Dim OnePrm As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue()
        OnePrm.Value =  127 
        ExecParms.Add(OnePrm)
        CrystalReportViewer1.ParameterFieldInfo("one").CurrentValues=ExecParms