How do I pass two date parameter to crystal report in VB.NET

See more:

VB

i'm using crystal report in VB.Net and i want to pass date to crystal report
as parameter i try lots of solution but still error is there in formula of crystal report do any one have solution please give me a code i have submission within two days please........:'(


give me better link

What I have tried:

ublic Class Form1

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim cryRpt As New ReportDocument

'cryRpt.Load("PUT CRYSTAL REPORT PATH HERE\CrystalReport1.rpt")
'cryRpt.Load(Server.MapPath("Report1.rpt")) 'VB.NET
cryRpt.Load(System.Windows.Forms.Application.StartupPath + "\\Reports\\CrystalReport1.rpt")



Dim crParameterFieldDefinitions As ParameterFieldDefinitions

Dim crParameterFieldDefinition As ParameterFieldDefinition

Dim crParameterValues As New ParameterValues

Dim crParameterDiscreteValue As New ParameterDiscreteValue



crParameterFieldDefinitions = _
cryRpt.DataDefinition.ParameterFields
crParameterFieldDefinition = _
crParameterFieldDefinitions.Item("start_date")
crParameterValues = crParameterFieldDefinition.CurrentValues



crParameterValues.Clear()

crParameterValues.Add(crParameterDiscreteValue)

crParameterFieldDefinition.ApplyCurrentValues(crParameterValues)



Form2.CrystalReportViewer1.ReportSource = cryRpt

Form2.CrystalReportViewer1.Refresh()
Form2.ShowDialog()
End Sub