广彩大清出口瓷器:(急救)关于CrystalReport显示不出数据问题。。。。。
来源:百度文库 编辑:高校问答 时间:2024/05/02 19:33:58
1.Access+DataSet+CrystalReport
2.通过DataGridView1可用显示数据。
3.在CrystalReportViewer1显示空数据。
dataset数据集
报表设计
最后显示结果,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
这里无法贴图其它链接:http://bbs.mscommunity.com/forums/ShowThread.aspx?PostID=47631
难道就没有人知道?
继续等.
2.通过DataGridView1可用显示数据。
3.在CrystalReportViewer1显示空数据。
dataset数据集
报表设计
最后显示结果,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
这里无法贴图其它链接:http://bbs.mscommunity.com/forums/ShowThread.aspx?PostID=47631
难道就没有人知道?
继续等.
哎呀 哥们 帮不了你 但是我很想要你的分
最好的办法就是把C盘给他还原一下