Private Sub dateButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles dateButton.Click Dim rpt1 As New ReportDocument rpt1.Load("*\myCR1.rpt") Dim crParameterFieldDefinitions As ParameterFieldDefinitions Dim crParameterFieldDefinition As ParameterFieldDefinition Dim crParameterValues As New ParameterValues Dim crParameterDiscreteValue As New ParameterDiscreteValue Dim crParameterDiscreteValue1 As New ParameterDiscreteValue crParameterDiscreteValue.Value = DateTimePicker1.Value crParameterDiscreteValue1.Value = DateTimePicker2.Value crParameterFieldDefinitions = rpt1.DataDefinition.ParameterFields() crParameterFieldDefinition = crParameterFieldDefinitions.Item("DateOrdered" & "DateOrdered1") crParameterValues = crParameterFieldDefinition.CurrentValues crParameterValues.Clear() crParameterValues.Add(crParameterDiscreteValue) crParameterFieldDefinition.ApplyCurrentValues(crParameterValues) iansCRviewer.ReportSource = rpt1 iansCRviewer.Refresh() End Sub
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)