Crystal Report Select Expert to Run Time

[martialdc]

During design I do this:

In my CrystalReport1.rpt, I right click on the detail section, I select "Select Expert" then I choose New tab, then dropdown(left),I choose "equal to"(right), I type "Programmer"

But how about during run? How can I do this?

Kindly help me to solve this? please.please.

[Lunatic3]

See if this helps

Dim rpt As CrystalDecisions.CrystalReports.Engine.ReportDocument
rpt = New CrystalReport1
rpt.DataDefinition.RecordSelectionFormula = "Your_Select_Criteria_Here"

[sphudson]

here is some more samples.

 Private Sub GO_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnGO.Click
        Dim EngineerReport As New frmReport()
        Dim StartDate, Month, Day, Year As String
        EngineerReport.MdiParent = NewParent
        Month = Cal1.SelectionStart.Month
        Day = Cal1.SelectionStart.Day
        Year = Cal1.SelectionStart.Year
        StartDate = "{datab.datesent}>=DateTime(" & Year & "," & Month & "," & Day & ",00,00,00)"

        If CallingForm = "Engineer" Then
            EngineerReport.pReportName = "\Engineer.rpt"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        ElseIf CallingForm = "Sales" Then
            EngineerReport.pReportName = "\Sales.rpt"
            StartDate = "{JOBRECORD.ORDERDATE}>=DateTime(" & Year & "," & Month & "," & Day & ",00,00,00)"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        ElseIf CallingForm = "MFOrder" Then
            EngineerReport.pReportName = "\MarginForecastOrderDate.rpt"
            StartDate = "{JOBRECORD.Sale Price} < $1.00 and {JOBRECORD.ORDERDATE} >=DateTime(" & Year & "," & Month & "," & Day & ",00,00,00)"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        ElseIf CallingForm = "MFShip" Then
            EngineerReport.pReportName = "\MarginForecastShipdate.rpt"
            StartDate = "{JOBRECORD.DateofShipment} >=DateTime(" & Year & "," & Month & "," & Day & ",00,00,00)"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        ElseIf CallingForm = "SalesVSBudget" Then
            EngineerReport.pReportName = "\SalesVsBudget.rpt"
            StartDate = "{JOBRECORD.ORDERDATE}>=DateTime(" & Year & "," & Month & "," & Day & ",00,00,00)"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        ElseIf CallingForm = "QuotesByMonth" Then
            EngineerReport.pReportName = "\QuotesByMonth.rpt"
            EngineerReport.crvReport.SelectionFormula = StartDate
            EngineerReport.crvReport.DisplayGroupTree = True
            EngineerReport.Show()
        End If

    End Sub