Как присвоить значения параметрам отчета Crystal Report

Подскажите, плз., как правильно присвоить значения параметрам отчета Crystal Report из Visual Basic? Рекомендованный вариант типа CR1.ParameterFields(0).Value = 'ProgramName' & ';' & ProgramName & ';' & 'True' вызывает ошибку «Требуется объект». Вариант CR1.ParameterFields(0)=... тоже не работает.

0

вот такой вариант можно попробовать:

Private Sub PrepareParams(ByVal parameter As Variant, num As Integer)
On Error GoTo ErrLabel
Dim lstrS As String
Private CrystalParameter As Object 'CRAXDRT.ParameterFieldDefinition

Set CrystalParameter = CrystalReport.ParameterFields.Item(num)

Select Case CrystalParameter.ValueType
Case crNumberField
CrystalParameter.AddCurrentValue CDbl(parameter)
Case crDateField
CrystalParameter.AddCurrentValue CDate(parameter)
Case crDateTimeField
CrystalParameter.AddCurrentValue CDate(parameter)
Case crCurrencyField
CrystalParameter.AddCurrentValue CCur(parameter)
Case crBooleanField
CrystalParameter.AddCurrentValue CBool(parameter)
Case Else
CrystalParameter.AddCurrentValue CStr(parameter)
End Select

Set CrystalParameter = Nothing
Exit Sub
ErrLabel:
' Form1.RaiseAppError '', 'Îøèáê& agrave; ïðè îòêðû&ograv e;èè îò÷åò&a grave; ' & App.path & 'Reports ' & prvReportName & '.rpt', 'clsCrystal.PrepareParams()', err.Description
End Sub