求助：查看出錯原因？

[wenjinhe]

我按照一個兄弟的方法調用水晶報表可是出現----型別 'ReportName' 未定義。
我試用的具體方法 是：
Imports System
Imports System.Data
Imports System.Data.SqlClient
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared


Public Class WebForm3
Inherits System.Web.UI.Page
Protected WithEvents CrystalView1 As CrystalDecisions.Web.CrystalReportViewer

Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim conn As SqlConnection
Dim da As SqlDataAdapter
Dim strSQL As String

conn = New SqlConnection()
conn.ConnectionString = "provider=sqloledb.1;initial catalog=PCS2;data source=172.16.21.166;user id=sa;pwd="
conn.Open()

strSQL = "Select * from TFU"
da = New SqlDataAdapter(strSQL, conn)
Dim ds As New DataSet()
da.Fill(ds, "TFU")

Dim RptDoc As New reportname()'就是這里出錯 ！！！！！！！！！！！！！！！！
RptDoc.SetDataSource(ds)

CrystalView1.ReportSource = RptDoc
CrystalView1.DataBind()
conn.Close() '在此加入要初始化頁面的使用者程式碼
End Sub

Private Sub Repeater1_ItemCommand(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.RepeaterCommandEventArgs)

End Sub
End Class

[xwdd129]

应该是:

Dim RptDoc As New ReportDocument()
RptDoc.Load(ReportName) //ReportDocument是一个报表类，用于承载报表对象
RptDoc.SetDataSource(ds) //此处再为其设置数据源

[wenjinhe]

但是我寫上后怎么顯示
RptDoc.Load(ReportName)中“ReportName”字符下有綠色的波浪線丫

“ReportName”是不是要替換成.RPT文件 ？

[xwdd129]

Dim RptDoc As New ReportDocument()
RptDoc.Load(ReportName)

[wenjinhe]

是這么寫
Dim RptDoc As New ReportDocument()
RptDoc.SetDataSource(ds)
還是
Dim RptDoc As New ReportDocument()
RptDoc.Load(ReportName)

[tianhua1hao]

頂！

[tianhua1hao]

Dim RptDoc As New ReportDocument()
RptDoc.Load(ReportName) //ReportDocument是一个报表类，用于承载报表对象
RptDoc.SetDataSource(ds) //此处再为其设置数据源

[www8s88com]

ReportName是rpt文件的路径 比如RptDoc.Load("D:\\MyReport.rpt")

[xwdd129]

怎么这个帖子还在？？？？