01.Imports CrystalDecisions.CrystalReports.Engine
02.Public Class Form1
03.
04. Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
05. Dim rpt As New ReportDocument()
06. Dim directory As String = My.Application.Info.DirectoryPath
07. rpt.Load("D:\OneDrive\Friend\ProgramFix\Program\Program\CrystalReport1.rpt")
08. rpt.SetParameterValue("para_month", Me.ComboBox1.Text)
09. Me.CrystalReportViewer1.ReportSource = rpt
10. Me.CrystalReportViewer1.Refresh()
11. End Sub
12.End Class
