vb crystalreport - .NET¼¼Êõ / VB.NET

Private Sub btnPrint_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnPrint.Click
  MouseWait()

  Dim ClearTempTabelSQL As String

  'If Not IsDate(mtxtDate.Text) Then
  ' Call MouseDefault()
  ' Exit Sub
  'End If

  Dim ReportDoc As New CrystalDecisions.CrystalReports.Engine.ReportDocument

  Call ReportDoc.Load(gRptPath & "56f.rpt")
  ReportDoc.RecordSelectionFormula = "{TempTax56b.TempKey} = '" & RP2(TempKey) & "'"
  ReportDoc.SetParameterValue("TaxYear", Mid(mtxtDate.Text, 7, 4))

  ClearTempTabelSQL = "DELETE from TempTax56b WHERE TempKey = '" & RP(TempKey) & "'"
  Dim F As New Reports.frmReportViewer(ReportDoc, GL("@DSL1108"), ClearTempTabelSQL)
  F.Show()

  MouseDefault()
  End Sub
End Class


ͨ¹ýÒ»¸ö°´Å¥µ÷ÓÃcrystalreport
µ«ÊÇ ÀïÃæÄǸöCall ReportDoc.Load(gRptPath & "56f.rpt")
grptpathÊÇ·¾¶ µ«ÊÇÔõô֪µÀ·¾¶ÊÇÉÏÃ棿

---

ÊÇʲô 
´ò´í

---

¶¥Ñ½ ´ó¼Ò

---

´úÂëÀïËƺõûÓÐgRptPath Õâ¸ö±äÁ¿µÄ¶¨Òå¡£
¿ÉÒÔÓà application.startuppath£¬±íʾÄãµÄ³ÌÐòËùÔÚµÄĿ¼£¨winform³ÌÐò¿ÉÓã©¡£
±ÈrptÎļþ·