如何在vb.net中添加水晶报表

Question

这是我第一次使用水晶报告，但我不想使用向导，所以我尝试了这段代码

Imports System.Data.SqlClient
Imports System.Configuration
Imports System.Linq
Imports CrystalDecisions.CrystalReports.Engine
Imports CrystalDecisions.Shared

Public Class view_fir_rpt_frm
Dim cn As SqlConnection = New SqlConnection(ConfigurationManager.ConnectionStrings("CRMSconn").ConnectionString)
Dim da As SqlDataAdapter
Dim ds As New DataSet
Dim cmd As SqlCommand


Private Sub view_fir_rpt_frm_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    cn.Open()
    da = New SqlDataAdapter("select * from fir", cn)
    da.Fill(ds, "fir")
     MsgBox(ds.Tables("fir").Rows.Count)
    cn.Close()
    Dim cr As New CrystalReport1
    "cr.SetDataSource(ds.tables("fir"))"
    CrystalReportViewer1.ReportSource = cr
    CrystalReportViewer1.Refresh()

End Sub
End Class

我在引用行中收到报告没有表格的错误。那么有人可以建议我在代码中应该做些什么改变吗？

Answer 1

尝试将cr.SetDataSource(ds.tables("fir"))更改为cr.SetDataSource(ds)，看看是否可以解决您的问题。