在水晶报表内添加OLE链接对象，然后对其进行操作

最新推荐文章于 2025-07-19 16:53:57 发布

原创最新推荐文章于 2025-07-19 16:53:57 发布 · 4.4k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#报表 #null #application #report #测试

本文介绍了一个使用水晶报表(Crystal Reports)过程中遇到的问题及解决方案，主要讨论如何在报表中更新已存在的图片OLE链接，涉及创建应用程序实例、打开报表、定位并修改特定区域内的图片等步骤。

m_Application.CreateInstance (__uuidof(Application));
_bstr_t strRptName = "E://Cristal//MultDetailsExamp//DataAndPic.rpt";
_bstr_t strPicName = "E://Cristal//MultDetailsExamp//AreaStudytemp.bmp";

//不知道为什么，如果在打开报表之前，对新修改的图片不进行大小调整的话，就会弹出对话框，说链接不正确之类的，不知道为什么，期待解决

HINSTANCE hInt=ShellExecute(this->m_hWnd,"open","kodakimg.exe",strPicName,"", SW_SHOW );

m_Report =m_Application->OpenReport((_bstr_t)strRptName);

//修改报表中已经存在的图片OLE链接
pChartObj = NULL;
pSections = NULL;
pSection = NULL;
pCROleObj = NULL;
_variant_t var;
VariantInit(&var);
var.vt = VT_I2;
var.iVal = 1;
_bstr_t bstr;

long lg;

pSection = m_Report->GetAreas()->GetItem("RH")->GetSections()->GetItem(var);
bstr = pSection->GetCssClass();
bstr = pSection->GetName();
pReportObj = pSection->ReportObjects->GetItem("Pic1");
if (pReportObj->Kind == crOleObject)
{
pCROleObj = pReportObj;
}

pReportObj->Name = "水晶报表测试图例2";

//。。。。。。。。。。。