cry
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.ReportAppServer.CrystalReportDataRowView
''''''Add to button click or something
Dim cr As New CrystalReport1
cr.SetParameterValue("0", "C:\newimage.jpg") ''' -- Note , "0" is the parameter field name we created before and second param of SetParameterValue is the location + new image you set to replace the old one
' For crystal viewer not to ask you to specify the parameter in a pop up box, you need to do:
Dim paramFields As New CrystalDecisions.Shared.ParameterFields()
Dim paramField As New CrystalDecisions.Shared.ParameterField()
Dim discreteVal As New CrystalDecisions.Shared.ParameterDiscreteValue()
paramField.ParameterFieldName = "0" ' again the parameter field name we created
discreteVal.Value = "C:\newimage.jpg" ' once more the new image name and location
paramField.CurrentValues.Add(discreteVal)
paramFields.Add(paramField)
CrystalReportViewer1.ParameterFieldInfo = paramFields
CrystalReportViewer1.Refresh()
CrystalReportViewer1.ReportSource = cr