Dim rpt As New rptLot
Dim rptViewer As FrmReportViewer
RptClass.SetCRLogOnInfo(rpt)
rpt.SetParameterValue("strLotNo", Me.TxtBox1.Text)
rptViewer = New FrmReportViewer(rpt)
rptViewer.Show()
以供备用