Imports CrystalDecisions.Shared
Public Class Form1
Inherits System.Windows.Forms.Form
#Region " Windows Form Designer generated code "
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
CrystalReportViewer1.DisplayGroupTree = False
CrystalReportViewer1.ShowPrintButton = True
End Sub
Private Sub Button1_click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim myParameterFields As New ParameterFields
Dim myParameterField As New ParameterField
Dim myDiscreteValue As New ParameterDiscreteValue
myParameterField.ParameterFieldName = "DataDate"
myDiscreteValue.Value = DateTimePicker1.Text
myParameterField.CurrentValues.Add(myDiscreteValue )
myParameterFields.Add(myParameterField)
CrystalReportViewer1.ParameterFieldInfo = myParameterFields
CrystalReportViewer1.ReportSource = New CCReport
CrystalReportViewer1.Refresh()
End Sub
End Class