Dim ds As New rptDataSet 'DataSet I created using the IDE
Dim t as DataTable = ds.TmsSchedule 'Primary DataTable with Source material
Dim s As DataTable = ds.School 'Second table with Student assignments
' Pull the data from the database and put it in the dataset.
Dim sc = From tms In db.TmsSchedules _
Join sch In db.Schools On sch.SchoolDate Equals tms.schDate _
Where tms.schDate >= firstDate And tms.schDate <= lastDate _
Select tms.schDate, sch.SchoolDate ' etc.
Dim r As DataRow
Dim rs As DataRow
For Each dr In sc
r = t.NewRow()
r("schDate") = dr.schDate
rs = s.NewRow()
rs("SchoolDate") = dr.SchoolDate
' All the above works and display in the DataGridViews on the report
' Below is exactly the same as in another report, but nothing displays.
Dim objRpt As New rptSchedule 'Report I built from the above Dataset
objRpt.SetDataSource(ds) 'Point the report to the dataset
CrystalReportViewer1.ReportSource = objRpt 'Set reportviewer to the report
CrystalReportViewer1.Refresh() 'Refresh the report.