Добрый день!

Хочу передать параметр в CR и пишу код:

LOCAL oCR AS CRAXDRT.Application
Public oRpt AS CRAXDRT.Report
LOCAL oDB AS CRAXDRT.Database
LOCAL ocDBT AS CRAXDRT.DatabaseTables
LOCAL oDBT AS CRAXDRT.DatabaseTable

LOCAL ocParm AS CRAXDRT.ParameterFieldDefinitions
LOCAL oParm AS CRAXDRT.ParameterFieldDefinition

oCR = CREATEOBJECT("CrystalRuntime.Application")

oRpt = oCR.OpenReport("C:\Report1.RPT")


oDB = oRpt.Database()
ocDBT = oDB.Tables()
oDBT = ocDBT.Item(1)

IF oRPt.HasSavedData
oRPT.DiscardSavedData()
ENDIF

ocParm = oRpt.ParameterFields()
oParm = ocParm.Item(1)
oParm.ClearCurrentValueAndRange
oParm.AddCurrentValue("Test")

oRpt.PrintOut()

Отчёт отображается а текста в параметре нет, Поделитесь опытом