我如何在Crystal报表中显示数据 [英] How I show the Data in Crystal report
本文介绍了我如何在Crystal报表中显示数据的处理方法,对大家解决问题具有一定的参考价值,需要的朋友们下面随着小编来一起学习吧!
问题描述
我的项目运行成功,但是该项目存在一个问题,即保存后无法显示数据,它显示了Crystal Report,但是在此过程中却无法显示数据
请查看下面提到的代码并解决相同的问题
My project is running successfully but i have one problem in that project that it can not show the data after saving , it show the Crystal Report but in this it can''t show the data
Please see the below mentioned code and solve the same
Dim insql As String = "INSERT INTO patient (recptno,pname,age,address,date,phone,refby,testcode,testname,amount) VALUES (@number1,@text2,@number3,@text4,@text5,@number6,@text7,@text8,@text9,@number10)"
cmd = New SqlCommand(insql, sqlconn)
cmd.Parameters.AddWithValue("@number1", reciepttxt.Text)
cmd.Parameters.AddWithValue("@text2", nametxt.Text)
cmd.Parameters.AddWithValue("@number3", agetxt.Text)
cmd.Parameters.AddWithValue("@text4", addresstxt.Text)
cmd.Parameters.AddWithValue("@text5", datetxt.Text)
cmd.Parameters.AddWithValue("@number6", phonetxt.Text)
cmd.Parameters.AddWithValue("@text7", refbytxt.Text)
cmd.Parameters.AddWithValue("@text8", testcodetxt.Text)
cmd.Parameters.AddWithValue("@text9", testnametxt.Text)
cmd.Parameters.AddWithValue("@number10", amounttxt.Text)
sqlconn.Open()
rowsins = cmd.ExecuteNonQuery
sqlconn.Close()
MessageBox.Show(rowsins.ToString & " row added")
Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument
Dim CrystalReportViewer As CrystalDecisions.Windows.Forms.CrystalReportViewer = New CrystalDecisions.Windows.Forms.CrystalReportViewer
CrystalReportViewer.ActiveViewIndex = 0
CrystalReportViewer.BorderStyle = System.Windows.Forms.BorderStyle.FixedSingle
CrystalReportViewer.DisplayGroupTree = False
CrystalReportViewer.Dock = System.Windows.Forms.DockStyle.Fill
CrystalReportViewer.Location = New System.Drawing.Point(0, 0)
CrystalReportViewer.Name = "CrystalReportViewer1"
Dim ds As New MDataSet
Dim sqlCon As SqlConnection
Dim dt As New DataTable
dt.TableName = "patient"
Form2.Show()
sqlCon = New SqlConnection("Data Source=.\SQLEXPRESS;Initial Catalog=blissdata;Integrated Security=True")
Dim da As New SqlDataAdapter("SELECT recptno,pname,age,address,date,phone,refby,testcode,testname,amount FROM patient", sqlCon)
da.Fill(dt)
Report.Load("C:\Users\Administrator\Documents\Visual Studio 2008\Projects\WindowsApplication1\WindowsApplication1\CrystalReport1.rpt")
Report.SetDataSource(ds)
Form2.CrystalReportViewer1.ReportSource = Report
'Form2.CrystalReportViewer1.Refresh()
推荐答案
好.
因为您说没有错误,所以我查看了您的代码.注意到一件事:
您可以:
Ok.
I looked at your code since you said no error. Noticed one thing:
You do:
Report.SetDataSource(ds)
但是,ds
从未填充.
相反,dt
是:
Though, ds
was never populated.
Instead, dt
was:
da.Fill(dt)
因此,请对其进行更改并尝试以下操作:
So, change it and try something like:
Report.SetDataSource(dt)
看看,是否有帮助.
See, if it helps.
这篇关于我如何在Crystal报表中显示数据的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!
查看全文