مشکل در نمایش اطلاعات در کریستال ریپورت

[milad.biroonvand]

سلام

من می خوام با کد زیر از کریستال ریپورت استفاده کنم
ولی خطای زیر رو میگیره

The report has no tables.

این خطا رو رو کد زیر می گیره
Report.SetDataSource(ds)

کد




Dim con As New SqlConnection("Data Source=localhost;Initial Catalog=power;Integrated Security=True")
Dim da As New SqlDataAdapter
Dim ds As New DataSet
Dim strsql As String
strsql = "select title,describtion from tblNote "
da = New SqlDataAdapter(strsql, con)
da.Fill(ds, "tbl")


Dim Report As CrystalDecisions.CrystalReports.Engine.ReportDocum ent = New CrystalDecisions.CrystalReports.Engine.ReportDocum ent
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 = "CrystalReportViewer"


Dim RptPath As String

RptPath = "C:\CrystalReport1.rpt"
Report.Load(RptPath)

Report.SetDataSource(ds)
'If Not [Parameter] = "" Then Report.SetParameterValue(0, [Parameter])
'CrystalReportViewer.ReportSource = Report
' Me.Panel1.Controls.Add(CrystalReportViewer)
' CrystalReportForm.DataGridView1.DataSource = ds.Tables("tbl")
CrystalReportForm.Show()