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