Hello,

I am attempting to relay an SQL query to a report designed with
Crystal Reports from the Visual Basic environment.  The report I
designed in CR has subreports embedded within the main report.  I have
been able to write a query which changes the main report (see below),
but I am unable to find a way to write a similar query to update
information in the subreports.  What is the correct way to do this?

Private Sub Form_Load()

Screen.MousePointer = vbHourglass
Set Report = Application.OpenReport("C:\Sample Report.rpt")
Report.DiscardSavedData

Dim strSQLFilter As String

strSQLFilter = "Scenario 1"

Report.SQLQueryString = _
   "`Table1`.`Field1`, `Table1`.`Field2`, FROM `Table1` WHERE
`Table1`.`Field1`='" & strSQLFilter & "'"

' -- HOW DO I SET THE QUERIES FOR ALL OF THE SUBREPORTS? -- '

CRViewer1.ReportSource = Report
CRViewer1.ViewReport
Screen.MousePointer = vbDefault

End Sub
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 7/15/04 10:07:54 PM