Private Sub Form_Load()// создает главный объектSet loApp = CreateObject("CrystalRuntime.Application")// Загружаем файл отчета, получаем объект отчетаSet loReport = loApp.OpenReport("C:\Proects\CR_Viewer_vb\rtitle.rpt")// Получаем объект параметра отчета "Title"Set loTitle = loReport.ParameterFields.GetItemByName("Title")// Задаем значение текстовому параметруloTitle.SetCurrentValue ("Simple Text")// Присваиваем вьюверу объект отчета и показываем отчетCRViewer1.ReportSource = loReportCRViewer1.ViewReportEnd Sub
pCRApplication = new QAxObject(this);pCRApplication->setControl("CrystalRuntime.Application");QAxObject* pCReport = pCRApplication->querySubObject("OpenReport(QString, QVariant)", "reports\\rtitle.rpt");QAxObject* pParameterFieldDefinitions = pCReport->querySubObject("ParameterFields");QAxObject* pTitle = pParameterFieldDefinitions->querySubObject("GetItemByName(QString, QVariant)", "Title");pTitle->dynamicCall("SetCurrentValue(QVariant, QVariant)", "Simple Text");ui.pCRViewer->dynamicCall("SetReportSource(IUnknown*)", pCReport->asVariant());ui.pCRViewer->dynamicCall("ViewReport()");
QAxObject* pParameterFieldDefinitions = pCReport->querySubObject("ParameterFields");