Return only one record at a time

Question

I am new to crystal reports so any help would be appreciated.  I have a .net app that is a order processing system.  When the user is in a record, they want to be able to click on a button an open a crystal report showing only that orders details.  I created a crystal report that has the following fields:
Order ID, Product ID, Unit Price, Sell Price, Hours.
The Order ID is the primary key in the database.  The report runs fine when clicking the report button in the app, but returns the details for every order in the database.  We just need the details of the order that the user is processing.  How do I setup the report to only show that order's details?  I am using VB 2005 and Crystal v9.
Edited by: sking on Mar 6, 2009 1:12 AM

Answer 1

Brian,
Thank you for all your help.  I have been able to setup the report to return only one record at a time. In my app, when I click the report button the PDF opens perfectly with only one record.  However, when I go to another record and open the PDF it returns the information from the record id that was set as the default parameter value (crReportDocument.SetParameterValue("Orders", 67).  How do I get it to return the report for a different record?  Here is the code I'm using.  I think I'm really close with your suggestions but I'm just missing one step. 
#Region "CrystalReport"
     ''' <summary>
     '''Override the CrystalReportButton_Click and call DisplayReportAsPDF_CrystalReportButton function
     ''' </summary>
     Public Sub CrystalReportButton_Click(ByVal sender As Object, ByVal e As System.EventArgs)
      Dim crReportDocument As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
      Dim fileName As String = "test.rpt"
      Try
          If fileName.Substring(1).StartsWith(":\") Then
          crReportDocument.Load(fileName)
      Else
          crReportDocument.Load(Me.Page.MapPath(fileName))
      End If
      Catch ex As Exception
          Dim errMsg As String = ex.Message.Replace(Chr(13).ToString(), "").Replace(Chr(10).ToString(), "")
          errMsg += " Please make sure the dlls for Crystal Report are compatible with the Crystal Report file."
          BaseClasses.Utils.MiscUtils.RegisterJScriptAlert(Me, "BUTTON_CLICK_MESSAGE", errMsg)
      End Try
      Try
Dim paramValue As CrystalDecisions.Shared.ParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue()
           paramValue.Value = "67"
           crReportDocument.SetParameterValue("Orders", 67)
DisplayReportAsPDF_CrystalReportButton(crReportDocument)
      Catch ex As Exception
          Dim errMsg As String = ex.Message.Replace(Chr(13).ToString(), "").Replace(Chr(10).ToString(), "")
          errMsg += " If this is a deployment machine, make sure network service has permissions to read or write to the windows\temp folder."
          BaseClasses.Utils.MiscUtils.RegisterJScriptAlert(Me, "BUTTON_CLICK_MESSAGE", errMsg)
      End Try