Visual Basic

<br />
Private Sub arrButton_Click(Index as Integer)<br />
    Select Case Action(Index)<br />
        Case "OpenFileDialog"<br />
            '.....<br />
    End Select<br />
End Sub<br />

{Contact.ContactId} = {?ContactId}

'top of your object...
imports CrystalDecisions.CrystalReports.Engine
imports CrystalDecisions.Shared

'load your report 
dim myReport as New ReportDocument
with myReport
   .Load("myReportTemplate.rpt")
   .SetDataSource(myDataSet)
end with

'determine which row you want to display
dim drToDisplay as Datarow = myDataSet.Tables("Client").Select("ClientId = " & cstr(currentClientId))

'get a reference to the reports parameter field
dim prmClientIdParameter as ParameterFieldDefinition
prmClientIdParameter = myReport.DataDefinition.ParameterFields("ClientId")

'create a parameter values collection to set the parameter value
dim valsParClientId as New ParameterValues 

'create an instance of a parameter value to add to the above parameter values collection
dim valClientId as New ParameterDiscreteValue
valClientId.Value = drToDisplay("ClientId")

'add the parameter value to the parameters collection
valsParClientId.Add(valClientId)

'set the current value of the reports parameter field
prmClientIdParameter.SetCurrentValues(valsParClientID)

'--- code to display/print report etc ---'

Report1.DataDefinition.RecordSelectionFormula = "{MYTABLE.CONTACTID} =" & frmMain.strContactID
CrystalReportViewer1.ReportSource = Report1