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";
//。。。。。。。。。。。