Прошло некоторое время, но, очевидно, пройденный набор данных был пуст.Вот код, который нужно добавить к форме, содержащей средство просмотра (в случае, если вы используете MyBase.Load):
Private Sub test () Обрабатывает MyBase.Load
Dim rpt As New TestReport
Dim adp As New TestDataSetTableAdapters.CountriesTableAdapter
Dim country As New TestDataSet.tblCountriesDataTable
Dim ds As New DataSet()
adp.Fill(country)
ds.Tables.Add(country)
CrystalReportViewer1.ReportSource = rpt
rpt.Load("TestReport.rpt")
rpt.SetDataSource(ds)
CrystalReportViewer1.Refresh()
End Sub