Declare un objeto ParameterFieldDefinition para uso de los parámetros.
Dim crxParameterField As CRAXDRT.ParameterFieldDefinition
Declare un objeto Reporte para asignar el subreporte
Dim crxSubreport As CRAXDRT.Report
Declare un objeto FormulaFieldDefinition para asignar las formulas
Dim crxFormulaField As CRAXDRT.FormulaFieldDefinition
Abra el reporte
Set Report = crxApplication.OpenReport(App.Path & “/OCX_to_RDC.rpt”,1)
Use el siguiente código para cambiar la ubicación de cada DatabaseTable in la colección DatabaseTable del reporte:
For Each crxDatabaseTable in Report.Database.Tables
CrxDatabaseTable.Location = App.Path & “/xtreme.mdb”
Next crxDatabaseTable
Asigne crxParameterField al primer parámetro en la colección parameterfields del reporte
Set crxParameterField = Report.ParameterFields.Item(1)
Dar el valor al reporte principal
CrxParameterField.AddCurrentValue “parametro del reporte”
Asigne crxSubReport al subreporte “sub1” del reporte principal. Debe saber el nombre del Reporte para usar este método.
Set crxSubreport = Report.OpenSubreport(“Sub1”)
Use el siguiente código para cambiar la ubicación de cada DatabaseTable in la colección DatabaseTable del subreporte:
For Each crxDatabaseTable in crxSubreport.Database.Tables
CrxDatabaseTable.Location = App.Path & “/xtreme.mdb”
Next crxDatabaseTable
Asigne crxFormulaField a la primera formula de la colección formulaFields del subreporte
Set crxFormulaField = crxSubreport.FormulaFields.Item(1)
Pase la formula al subreporte
CrxFormulaField.Text = “’Formula para subreporte’”
End Sub
