User manual BUSINESS OBJECTS CRYSTAL REPORTS 9 TECHNICAL REFERENCE GUIDE

[. . . ] Crystal ReportsTM 9 Technical Reference Guide Crystal Decisions, Inc. Palo Alto California, USA 94301 Copyright © 2002 Crystal Decisions, Inc. , 895 Emerson St. , Palo Alto, California, USA 94301. No part of this documentation may be stored in a retrieval system, transmitted or reproduced in any way, except in accordance with the terms of the applicable software license agreement. This documentation contains proprietary information of Crystal Decisions, Inc. , and/or its suppliers. [. . . ] Set oSubDBFieldObject = oSubreport. Database. Tables. Item(1). Fields. Item(3) ` Link the main report and the subreport. Set oSubreportLinks = oSubReportObject. Links Set oSubreportLink = oSubreportLinks. Add(oMainDBFieldObject, oSubDBFieldObject) ` Set the report source of the viewer and view the report. CRViewer91. ReportSource = oReport CRViewer91. ViewReport End Sub How to re-import a subreport and link to a main report This example links a subreport and a main report using the Add Method (SubreportLinks Collection) and then re-imports the subreport using the ReImportSubreport Method (SubreportObject Object). CrystalReport1 is connected to the xtreme. mdb database found in the \Program Files\Crystal Decisions\Crystal Reports 9\Samples\En\Databases folder. A second report is created off the same data source in Crystal Reports using the Orders table. The report is saved in the sample application directory as Orders. rpt. The report "Orders. rpt" is then imported into CrystalReport1 through the Designer's user interface at design time. See "Inserting subreports" in Crystal Reports Online Help (crw. chm) for more information. See License Manager Help (License. hlp) for more information. ` Create a new instance of the main report. Dim oReport As New CrystalReport1 ` Declare the variables needed for adding ` the subreport links and reimporting the subreport. 194 Crystal Reports Technical Reference Guide 3 : Report Designer Component Object Model Dim Dim Dim Dim Dim Dim Dim Dim oSubreport As CRAXDRT. Report oSection As CRAXDRT. Section oReportObjects As CRAXDRT. ReportObjects oSubreportObject As CRAXDRT. SubreportObject oSubrpt As CRAXDRT. Report oReportObject As Object bSubreport As Boolean bReimported As Boolean Private Sub Form_Load() ` Search for all the report objects in each section. For Each oSection In oReport. Sections Set oReportObjects = oSection. ReportObjects For Each oReportObject In oReportObjects If oReportObject. Kind = crSubreportObject Then Set oSubreportObject = oReportObject Set oSubrpt = oSubreportObject. OpenSubreport bSubreport = True Exit For End If Next If bSubreport Then Exit For Next ` Link the "Customer ID" field from the Customer ` table in the main report to the "Customer ID" field ` from the Orders table in the subreport. ` Note: The Links property requires licensing. oSubreportObject. Links. Add "{Customer. Customer ID}", "{Orders. Customer ID}" ` Import the subreport once again so that any changes ` are reflected in the main report. ` Note: The ReimportSubreport method requires licensing. oSubreportObject. ReimportSubreport bReimported ` If bReimported is True the subreport imported successfully. ` If bReimported is False the subreport failed to import. If bReimported Then MsgBox "Subreport imported successfully. " Else MsgBox "Subreport failed to import. " Exit Sub End If ` Set the report source of the viewer and view the report. CRViewer91. ReportSource = oReport CRViewer91. ViewReport End Sub Crystal Reports Technical Reference Guide 195 Examples How to add and delete table links This example Demonstrates how to display information on a table link in a report using the properties of the TableLink Object, how to delete a table link using the Delete Method (TableLinks Collection), and finally how to add a table link using the Add Method (TableLinks Collection). CrystalReport1 is connected to the xtreme. mdb database found in the \Program Files\Crystal Decisions\Crystal Reports 9\Samples\En\Databases folder. The report is using the Customer table and the Orders table. The two tables are linked on the Customer ID field. See License Manager Help (License. hlp) for more information. ` Create a new instance of the main report. [. . . ] 274 Visual C++, creating an application with the Embeddable Designer . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 280 Type Library, Crystal Data Source . . . . . . . . . . . . . . . . . . . . . . . . . . 335 U UFEndJob . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . 369, 379 See also User-Defined Functions, programming in Delphi See also User-Defined Functions, programming in VB UFInitialize . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . . [. . . ]