AX 水晶报表

void ViewCrystalReport() 
{ 
　　Com comapp; 
　　Com reporting; 
　　str paramwhole; 
　　str paramfilename; 
　　str paramCond; 
　　str ViewYesNo; 
　　int ret; 
　　COMVariant variant; 

　　; 

　　variant = new COMvariant(COMVariantInOut::OUT,COMVariantType::VT_BOOL) ; 
　　paramwhole = this.args().parm(); 
　　comapp = new COM("CrystalRuntime.Application.11"); 

　　ret = strfind(paramwhole,"|",2,strlen(paramwhole)); 

　　paramfilename = substr(paramwhole,2,ret-2) ; 
　　ViewYesNo = substr(paramwhole,1,1); 
　　reporting = comapp.openreport(paramfilename); 
　　reporting.discardsaveddata(); 
　　reporting.readrecords(); 

　　paramcond = substr(paramwhole,ret+1,strlen(paramwhole)); 

　　reporting.RecordSelectionFormula(paramCond); 

　　if (ViewYesNo == 'N') 
　　{ 
　　　　variant.boolean(false); 
　　　　reporting.PrintOut(variant); 
　　} 
　　else 
　　{ 
　　　　ActiveX.ReportSource(reporting); 
　　　　ActiveX.width(1200); 
　　　　ActiveX.height(750); 
　　　　ActiveX.DisplayToolbar(true); 
　　　　ActiveX.DisplayGroupTree(false); 
　　　　ActiveX.Refresh(); 
　　　　ActiveX.ViewReport(); 
　　　　ActiveX.Refresh(); 
　　} 


}