如何在数据表中显示Crystal报表？

Question

我正在开发窗口窗体应用程序，并在名为“ crystalreport1”的项目中添加Crystal Report，并在form1（窗口窗体）中使用CrystalReportViewer1。我想通过编程方式填充Crystal报表。

通过以下方式，我将数据表提供给了水晶报表，然后错误提示报告没有表。我该如何解决这个问题？

Dim dt As New DataTable
dt.Columns.Add("id")
dt.Columns.Add("name")
dt.Columns.Add("address")
dt.Rows.Add(1, "ali", "lhr")
dt.Rows.Add(2, "nomi", "mul")
Dim rpt As New CrystalReport1
rpt.SetDataSource(dt)
CrystalReportViewer1.ReportSource = rpt
CrystalReportViewer1.RefreshReport()
CrystalReportViewer1.Show()