Dim cryRpt As New ReportDocument cryRpt.Load("RASManualDeliveryOrder.rpt") Dim crParameterDiscreteValue As ParameterDiscreteValue Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefintion As ParameterFieldDefinition Dim crParameterValues As ParameterValues crParameterFieldDefinitions = cryRpt.DataDefinition.ParameterFields crParameterFieldDefintion = crParameterFieldDefinitions.Item("@DOType") crParameterValues = crParameterFieldDefintion.CurrentValues crParameterDiscreteValue = New CrystalDecisions.Shared.ParameterDiscreteValue crParameterDiscreteValue.Value = "ORIGINAL" crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefintion.ApplyCurrentValues(crParameterValues) Form1.CrystalReportViewer1.ReportSource = cryRpt Form1.CrystalReportViewer1.Refresh() Form1.Show()
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)