I create an CrystalReport 'report1.rpt', which includes
the subreport 'report1a.rpt'. The database connection is
to MS-SQL-Server.

Now I want to run this report on an other computer ,
only with the runtime-files from CrystalReport.
The name of the database is different to my database.

I work with the OCX-Control,
Crystal Report 7.0.

With 'RetrieveDataFiles' I get the number of the tables in
the main-report.
With 'Datafiles (i)' I get the tables of the main-report.
I also get the subreports, with 'GetNSubreport()' and
'GetNthSubreportName()'.

But after I set the subreportName to 'SubreportToChange'
- > I don't get the 'Datafiles(i)' of the subreport.
And when I call 'RetriveDataFiles' once more, I get the Datafiles(i) of
the main-report.

How it works, change the database of a report with subreport ?

In CRPE, it would be like this:

Dim crpTable As crpeauto.DatabaseTable
Dim crpParameterField As crpeauto.ParameterFieldDefinition
Dim i As Integer

Dim crpSection As crpeauto.Section
Dim crpObjects As crpeauto.ReportObjects
Dim crpSubreport As crpeauto.Report

Set crpReport = crpApp.OpenReport("h:\deniss\cr2.rpt", 1)

'replacing head report locations
For Each crpTable In crpReport.Database.Tables
  crpTable.SetLogOnInfo "ACCESS", txtNewDataBase.Text, txtUserName.Text,
txtPassword.Text
  crpTable.Location = txtNewDataBase.Text & Mid(crpTable.Location,
InStr(crpTable.Location, "."))
Next crpTable

'looking up subreports...
For Each crpSection In crpReport.Sections
    Set crpObjects = crpSection.ReportObjects
    For i = 1 To crpSection.ReportObjects.Count
      If crpObjects(i).Kind = crSubreportObject Then
        ' ...and replacing locations
        Set crpSubreport = crpReport.OpenSubreport(crpObjects(i).Name)
        For Each crpTable In crpSubreport.Database.Tables
            crpTable.SetLogOnInfo "", txtNewDataBase.Text,
txtNewUserName.Text, txtPassword.Text
            crpTable.Location = txtNewDataBase.Text & Mid(crpTable.Location,
InStr(crpTable.Location, "."))
        Next crpTable
      End If
    Next
Next

crpReport.ParameterPromptingEnabled = False
crpReport.Preview , , , , , WS_VISIBLE + WS_CAPTION + WS_BORDER + WS_SYSMENU
+
WS_THICKFRAME + WS_MINIMIZEBOX + WS_MAXIMIZEBOX

Set crpReport = Nothing

--
Deniss Andrijevski
SKRIINING

If the mainreport and the subreport have the same datatables in the same
order,
it is possible to change the database with:
- SubReporttToChange and
- Datafiles(i).

Thanks a lot

So long Frank Iversen