Private Sub CrystalReportViewer1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CrystalReportViewer1.Load
Dim crd As CrystalDecisions.CrystalReports.Engine.ReportDocument = New CrystalDecisions.CrystalReports.Engine.ReportDocument()
crd.Load("Raporty/rptList.rpt")
Me.Rek_sel_WypelnijPodaniePrzyjeciaTableAdapter.Fill(Me.RaportyDataSet1.rek_sel_WypelnijPodaniePrzyjecia, 170, 1)
crd.SetDataSource(RaportyDataSet1.Tables(0))
CrystalReportViewer1.ReportSource = crd
End Sub
|