01.Imports CrystalDecisions.CrystalReports.Engine
02.
03.Public Class rp1
04.
05. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
06. Dim tm As New Globalization.CultureInfo("en-US")
07. Dim EndDate As Date = DateTimePicker2.Value.Date.AddDays(1)
08. Dim rpt As New ReportDocument()
09. Dim directory As String = My.Application.Info.DirectoryPath
10.
11. rpt.Load("C:\Documents and Settings\Administrator\My Documents\Visual Studio 2010\Projects\nyp report\rp test\myCrystalReport1.rpt")
12.
13. rpt.RecordSelectionFormula = "{Table1.To_day} in (#" & DateTimePicker1.Value.ToString(tm)
14. rpt.RecordSelectionFormula &= "# to #" & DateTimePicker2.Value.ToString(tm) & "#)"
15.
16. Me.CrystalReportViewer1.ReportSource = rpt
17. Me.CrystalReportViewer1.Refresh()
18. End Sub
