62,074
社区成员
发帖
与我相关
我的任务
分享求助：水晶报表开发问题
出错情况：报表内容一片空白
我新建：CrystalReport1.rpt
WebForm1.aspx页面
在webform1.aspx里放一个CrystalReportViewer1控件
然后： Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码()
Dim dbname, dbstr As String
dbname = Server.MapPath("../db/rldb.mdb")
dbstr = ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbname)
dbcon = New STFunction(dbstr)----这是我写一个数据层
If Not IsPostBack Then
Dim oCR As New CrystalReport1
Dim ds As DataSet = New DataSet
Dim strSel As String = "Select eid,ename from ht_info"
ds = dbcon.OperateDBGetDataSet(strSel)---返回一个dataset
oCR.SetDataSource(ds)
CrystalReportViewer1.ReportSource = oCR
End If
End Sub
我新建：CrystalReport1.rpt
WebForm1.aspx页面
在webform1.aspx里放一个CrystalReportViewer1控件
然后： Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
'在此处放置初始化页的用户代码()
Dim dbname, dbstr As String
dbname = Server.MapPath("../db/rldb.mdb")
dbstr = ("PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA Source=" & dbname)
dbcon = New STFunction(dbstr)----这是我写一个数据层
If Not IsPostBack Then
Dim oCR As New CrystalReport1
Dim ds As DataSet = New DataSet
Dim strSel As String = "Select eid,ename from ht_info"
ds = dbcon.OperateDBGetDataSet(strSel)---返回一个dataset
oCR.SetDataSource(ds)
CrystalReportViewer1.ReportSource = oCR
End If
End Sub
...全文
请发表友善的回复…
发表回复
blureyes2003 2004-07-12
- 打赏
- 举报
一样是空白啊
angellshadow 2004-07-12
- 打赏
- 举报
一楼正解
chNET 2004-07-12
- 打赏
- 举报
CrystalReportViewer1.ReportSource = oCR
CrystalReportViewer1.DataBind()
