(急救)关于CrystalReport显示不出数据问题。。。。。
小李飞刀 2006-09-09 03:49:08 1.Access+DataSet+CrystalReport
2.通过DataGridView1可用显示数据。
3.在CrystalReportViewer1显示空数据。
最后显示结果,DataGridView1显示正常 ,报表却是空白数据。
代码如下:
Public Class CrystalReportViewer
Private myCon As OleDbConnection
Private mySelect As String
Private myDataAdapter As OleDbDataAdapter
Private objDataSet As DataSet1
'DataSet1是DataSet1.xsd文件
Private myconnstring As String = My.Settings.ryglConnectionString
'My.Settings.ryglConnectionString 是配置文件
Private objPersonCrystalReport As CrystalReport2
'CrystalReport2是我建立的一个CrystalReport2.rpt
Private Sub CrystalReportViewer_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
selectinfo="select * from person"
myCon = New OleDbConnection("")
myCon.ConnectionString = myconnstring
myDataAdapter = New OleDbDataAdapter(mySelect, myCon)
objDataSet = New DataSet1
myDataAdapter.Fill(objDataSet, "PersonCR")
objPersonCrystalReport = New CrystalReport2
objPersonCrystalReport.SetDataSource(objDataSet.Tables("PersonCR"))
DataGridView1.DataSource = objDataSet.Tables("PersonCR")
'DataGridView1显示正常。
PersonCrystalReport.ReportSource = objPersonCrystalReport
End Sub