How to use SetFormula() using crysatl report viewer

Question

Dear All,
I am using crystal report X1. From the application I open the report using report viewer. In the report am using some formula fields. How can I pass the formula form the  application. Herewith I am giving the code snippet of crystal report related operation.
IApplicationPtr                     m_Application;
IReportPtr                          m_ReportType;
IExportOptionsPtr                m_ExportOptions;
VARIANT                         dummy;
m_Application.CreateInstance("CrystalRuntime.Application");
m_ReportType = m_Application->OpenReport("D:
DB_Report
Report.rpt");
m_Viewer.SetReportSource(m_ReportType);
m_Viewer.ViewReport();
Please help me out..
Thanks in advance

Answer 1

Hello,
I had a look around for samples I may have and although the below code is adding the formulae at runtime it's basically the same thing.
It would look something like this:
void ReportView::InitReport()
    // Initialize our Application instance
    HRESULT hr = CoCreateInstance(CLSID_Application, NULL, CLSCTX_INPROC_SERVER , IID_IApplication, (void **) &m_Application);
    ASSERT(SUCCEEDED(hr));
void ReportView::AddDetailFormulas()
    ISectionPtr pSection = GetReportSection(sectionNum);
    IFormulaFieldDefinitionsPtr pFormulaFields = 0;
    m_Report->get_FormulaFields((IFormulaFieldDefinitions**) &pFormulaFields);
    // A field must be recurring if you want to group on a field or
    // automatically bind it to a data source.
    // Putting "WhileReadingRecords" into the formula text makes the formula
    // into a recurring field.
    CString Recur = CString(L"WhileReadingRecords;" +
                           (CString)__toascii(13) +
                           (CString)__toascii(10));
    // Add the formulas to the formula fields collection
    CString CStrText = Recur + CString(L"Space(10)");
    BSTR strText = CStrText.AllocSysString();
    BSTR objName = SysAllocString(L"Player");
    PlayerFormula = pFormulaFields->Add(objName, strText);
    SysReAllocString(&objName, L"Team");
    TeamFormula = pFormulaFields->Add(objName, strText);
    SysReAllocString(&objName, L"Year");
    YearFormula = pFormulaFields->Add(objName, strText);
    SysFreeString(strText);
    CStrText = Recur + CString(L"$0.0");
    strText = CStrText.AllocSysString();
    SysReAllocString(&objName, L"Salary");
    SalaryFormula = pFormulaFields->Add(objName, strText);
    SysFreeString(objName);
Intelli-sense should show you the other methods if you want to simply change the formula text.
Searching the RDC samples on our site should give more Visual Basic sample, the methods will be the same just the syntax will b e different. Serch craxdrt.tlh for more info on which methods and classes are available.
Thank you
Don