Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared
Imports System.Runtime.InteropServices
Imports System.Threading
Public Class Audit_Report
Private mReport As Audit_CR_Report
Private Sub Audit_Report_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Activated
srDisplay_Report()
End Sub
Private Sub srDisplay_Report()
Dim mReport = New Audit_CR_Report
mReport.SetParameterValue("mOffer_Id", mReport_Parm1)
mReport.SetParameterValue("mChkFile1_Name", mReport_Parm2)
mReport.SetParameterValue("mRadFile2_Name", mReport_Parm3)
mReport.SetParameterValue("mShow_Which_Records", mReport_Parm4)
mReport.SetParameterValue("mUser_Name", mReport_Parm5)
CrystalReportViewer1.ReportSource = mReport
CrystalReportViewer1.Zoom(75)
End Sub
Private Sub Audit_Report_FormClosed(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosedEventArgs) Handles Me.FormClosed
Me.Dispose()
Me.Finalize()
GC.Collect()
End Sub
End Class
|