调用Crystal Report时出现The report has no tables错误.

[tanghuiming]

VB.NET Code

Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class Form1
Private sqldap As New SqlClient.SqlDataAdapter
Private ds As New DataSet
Private Connstr As String = "Data Source=192.168.1.6;Initial Catalog=HR;Persist Security Info=True;User ID=sa;Password=pivotintnetadmin"
Private Sqlconn As SqlClient.SqlConnection = New SqlClient.SqlConnection(Connstr)

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
If Sqlconn.State = ConnectionState.Open Then
Sqlconn.Close()
End If
Sqlconn.Open()
Dim sqlcmd As SqlClient.SqlCommand = New SqlClient.SqlCommand("select * from insurance", Sqlconn)
sqlcmd.ExecuteNonQuery()
sqldap.SelectCommand = sqlcmd
sqldap.Fill(ds)
Dim obj As ReportDocument = New ReportDocument
obj.Load("d:\cr.rpt")
obj.SetDataSource(ds.Tables(0)) '错误出现在这里
Me.CrystalReportViewer1.ReportSource = obj
End Sub

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class


Dataset里面明明就有tables.
请指点,谢谢!

[阿泰]

sqldap.Fill(ds) 的时候，需指定表名,表名需与报表设计时的表名一致
sqldap.Fill(ds,"tablename")

[qinboody]

代码没错误。关键是看你报表文件怎么设置的。问题出在报表上，不是数据源。是否报表有从数据库拉资料。然后数据库有改动了。？？

[tanghuiming]

谢谢回复,不是这样的.
sqldap.fill(ds) '填充Dataset
obj.SetDataSource(ds.Tables(0)) '这里已经为报表指定了表.
ds.Tables(0)明明就有tables, DataGridView里面都可以显示数据.

各位帮忙看看呀!非常感谢!

[sjm2003]

你的报表关联了DATASET么？也就是你做了报表摸板吗？

[georgeben]

obj.SetDataSource(ds.Tables(0)) '错误出现在这里

有两种模式，推/拉
obj.SetDataSource(ds.Tables(0))
或
obj.SetDataSource(ds）

[tanghuiming]

怎样关联Dataset,请指点,谢谢!

[daisylh]

sqlcmd.ExecuteNonQuery() 這句多餘

你的CR.RPT有資料表嗎？