水晶报表入门问题

[morningnet]

'已建立一个水晶报表文件rptClient.rpt
Dim ds As New DataSet()

''''填充ds省略
Dim oRpt As New rptClient()

oRpt.SetDataSource(ds.Tables(0))

' 将带有数据的报表对象绑定到报表窗体查看器，rptVew（CrystalReportViewer控件）

rptVew.ReportSource = oRpt

为什么Dim oRpt As New rptClient() 总是提示出错说rptClient是未定义对象

[morningnet]

现在还是有问题，dim ds as new dataset1()是未定义对象!??????

[morningnet]

问题是我已经新建了一个dataset1对象了

[极客行天下]

http://www.chinamacro.cn/blog/visit_detail.aspx?blogID=96

[vb_vs]

can you post your code here
let us help you to fix up your problems

[morningnet]

Sub bindrpt(ByVal xh As String)
' 水晶报表绑定
Dim cl As New db ’数据库操作类
Dim sqlstr As String
sqlstr = "select * from v_cjb where xh='" + xh + "'"
' dr = cl.Getdr(sqlstr)
Dim ds As New DataSet1() ‘一个已经新建的数据集dataset1.xsd ,但是这句话是出错的，说对象不存在
ds = cl.getds(sqlstr)
Dim oCR As New Engine.ReportDocument()
oCR.Load(Server.MapPath("CrystalReport1.rpt"))
oCR.SetDataSource(ds)
CrystalReportViewer1.ReportSource = oCR
’ CrystalReportViewer1.DataBind()
End Sub

[lovelacy]

mark