oSubRpt = oRpt.OpenSubReport("SubRepName")
IF oSubRpt.HasSavedData
   oSubRpt.DiscardSavedData()
ENDIF
oSubCParm = oSubRpt.ParameterFields()
oSubParm = oSubCParm.Item(1)
oSubParm.SetCurrentValue(loan_sell_date)
oSubParm = oSubCParm.Item(2)
oSubParm.SetCurrentValue(wkinv_cd)

>I have a crystal report that runs within my VFP application. This report uses 2 parameter fields and I set the value within the code as follows
>
>ocr = createobjec("CrystalRuntime.application")
>orpt = ocr.openreport("f:\apps\in-house apps\eomaccounting\REPORTS\Other Reports\Loan Sale MSH Posting.rpt")
>if orpt.hassaveddata
> orpt.discardsaveddata()
>endif
>ocparm=orpt.ParameterFields()
>oparm=ocparm.Item(1)
>oparm.SetCurrentValue(loan_sell_date)
>oparm=ocparm.Item(2)
>oparm.SetCurrentValue(wkinv_cd)
>orpt.printout()
>release ocr
>
>I have had to change this report and add a subreport to the report footer that is a summary of the main report.
>
>How do I set the value of a parameter field within the subreport?
>
>
>Thanks