เกี่ยวกับ about CrystalReportViewer & CrystalReportSource

Imports CrystalDecisions.CrystalReports.Engine
Partial Public Class _Default
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

    End Sub

    Protected Sub btnShowReport_Click(ByVal sender As Object, ByVal e As EventArgs) Handles btnShowReport.Click
        Dim rpt As New ReportDocument()
        rpt.Load(Server.MapPath("CrystalReport1.rpt"))
        rpt.SetParameterValue("CustomerID", Me.txtCustomerID.Text)
        Me.CrystalReportViewer1.ReportSource = rpt
    End Sub
End Class