Hi Dan,

Hey, the report now comes up with the three reports, however, there is no data!

In your original code, I got an error on loReport, so I changed it to oRe.oreport. In the new code you sent for the parameter, I again received an error on loReport. I changed this to loSubReport.

Are my references incorrect?

Thanks,

>I get the parameter via the Parameters collection. Something like this:
>
>

>** loop through each parameter in the report object's
>** parameter fields collection
>
>FOR EACH loCRParameter IN loReport.ParameterFields
>   ** get the name of the parameter
>   lcParamName = loCRParameter.ParameterFieldName
>
>   IF LOWER(lcParamName) = 'vp_ccase_cid'
>      loCRParameter.SetCurrentValue(lcCID)
>   ENDIF
>
>ENDFOR
>
>

>>Hi Dan,
>>
>>I am not sure how to set the parameter in the sub-report. The .setparameter command apparently is not recognized. Here is the code in the button.click where I call the report:
>>
>>

>>LOCAL lcCID, ;
>>	oRE
>>* Create an instance of the report engine
>>oRE = createobj('reportengine')
>>With oRE
>>	* Read reports path from Application object
>>	.cReportFilePath = This.oApplication.cOutputPath
>>	* Set report engine connection handle
>>	.ODBChdbc = SQLGetProp( 1 , 'ODBChdbc' )
>>	lcCID = V_CASE.cID
>>	If ! .OpenReport('IndictmentJacket.rpt')
>>		Messagebox(.cErrorMessage,MB_ICONSTOP,'Report Error')
>>	ELSE
>>		.SetReportParameter('vp_ccase_cid', lcCID)
>>****************************
>>** From Dan Jurden
>>** get a reference to the sections collection of the main report
>>*loSections = loReport.Sections
>>loSections = oRe.oreport.Sections
>>** Go through each section in the main report...
>>FOR EACH loSection IN loSections
>>   ** Get all the objects in this section...
>>   loReportObjects = loSection.ReportObjects
>>   ** Go through each object in the reportobjects for this section...
>>   FOR EACH loReportObject IN loReportObjects
>>      ** Find the object which is the SubreportObject
>>      IF loReportObject.Kind = 5 && crSubreportObject
>>         ** Found a subreport, now get a hold of it
>>         loSubReportObj = loReportObject
>>         ** Open the subreport and treat it as any other report
>>         loSubReport = loSubReportObj.OpenSubreport
>>         **************************************************
>>         ** set the parameter in the sub-report here     **
>> 	     loSubReport.SetReportParameter('vp_ccase_cid', lcCID)
>>         **************************************************
>>      ENDIF
>>   NEXT
>>NEXT
>>**************************************************
>>		.Preview()
>>	ENDIF
>>ENDWITH
>>

>>
>>>Do something like this:
>>>
>>>

>>>** get a reference to the sections collection of the main report
>>>loSections = loReport.Sections
>>>
>>>** Go through each section in the main report...
>>>FOR EACH loSection IN loSections
>>>   ** Get all the objects in this section...
>>>   loReportObjects = loSection.ReportObjects
>>>
>>>   ** Go through each object in the reportobjects for this section...
>>>   FOR EACH loReportObject IN loReportObjects
>>>      ** Find the object which is the SubreportObject
>>>      IF loReportObject.Kind = 5 && crSubreportObject
>>>         ** Found a subreport, now get a hold of it
>>>         loSubReportObj = loReportObject
>>>         ** Open the subreport and treat it as any other report
>>>         loSubReport = loSubReportObj.OpenSubreport
>>>
>>>         **************************************************
>>>         ** set the parameter in the sub-report here     **
>>>         **************************************************
>>>
>>>      ENDIF
>>>
>>>   NEXT
>>>
>>>NEXT

Thanks,

TFISHER