Dynamic Crystal Report

Imports CrystalDecisions.CrystalReports.Engine

Imports CrystalDecisions.CrystalReports.ViewerObjectModel

Imports CrystalDecisions.Shared

Public Class Form2

    Dim cr As New CrystalReport1

    Private Sub Form2_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        Dim emp = cr.ParameterFields("@empcode")

        emp.CurrentValues.AddValue(Form1.TextBox1.Text)

        emp.HasCurrentValue = True

        'Dim year = cr.ParameterFields("@Date_Range")

        'year.CurrentValues.AddValue(Form1.ComboBox1.SelectedItem)

        'year.HasCurrentValue = True

        CrystalReportViewer1.ReportSource = cr

        cr.SetDatabaseLogon("SA", "SA")

        CrystalReportViewer1.Show()

    End Sub

End Class