I’m using Visual Studio 2005, (VB) with a Windows form with a CrystalReportsViewer (XI).

I am trying to select data, run the report for that data, then repeat that process.

Example;

 I might need to select codes “A” and “B” from a database table. 

1)      Select all code “A” records.

2)      Run a report using the Report_A report.

3)      Select all code “B” records.

4)   Run a report using the Report_B report.

My problem is – the code "B" report is displayed and contains codes "A" and "B"!

Please help.

 
sCode = orLetterGroups("FulFillCode").ToString.Trim
 
Dim strReportName As String = “Report_A"
 
Dim strReportPath As String = "C:\Reports\" & strReportName & ".rpt"
 
Dim myReportDocument As ReportDocument = New ReportDocument()
myReportDocument.Load(strReportPath)
CrystalReportViewer1.ReportSource = myReportDocument
 
myReportDocument.SetDataSource(myDataTable)
 

Sub PrintAllReportsForAllCodes()

Dim sSql As String = ""

Dim sCode As String = ""

sSql = "SELECT Unique Codes ("A", "B", "C",...")

Dim cmd As OracleCommand = New OracleCommand(sSql)

cmd.Connection = ConOra
cmd.CommandType = CommandType.Text
Dim orLetterGroups As OracleDataReader = cmd.ExecuteReader()

While orLetterGroups.Read

' get the report for this Code

sCode = orLetterGroups("Code").ToString.Trim

Dim strReportName As String = orLetterGroups("ReportName")

Dim strReportPath As String = "C:\Reports\" & strReportName & ".rpt"

sSql = "SELECT Name, Address,... WHERE Code = '" & sCode & "') "

Dim rdLetters As OracleDataReader = ReturnDataReader(sSql)

Dim cmd2 As OracleCommand = New OracleCommand(sSql)

cmd2.Connection = ConOra
cmd2.CommandType = CommandType.Text
Dim myreader As OracleDataReader = cmd2.ExecuteReader()

Dim myDataTable As New DataTable

If myreader.HasRows Then

myDataTable.Load(myreader)
myreader.Close()
End If

Dim myReportDocument As ReportDocument = New ReportDocument()

myReportDocument.Load(strReportPath)
CrystalReportViewer1.ReportSource = myReportDocument
myReportDocument.SetDataSource(myDataTable)

CrystalReportViewer1.ShowGroupTreeButton = True

CrystalReportViewer1.ShowExportButton = True

End While

End Sub