CrystalReportViewerl_Load. В

Автор admin Пятница, 22 января 2010 10:16

CrystalReportViewerl_Load. В эту процедуру необходимо поместить следующий код: Private Sub CrystalReportViewerl_Load(ByVal sender As System.Object, ByVal б As System.EventArgs) Handles CrystalReportViewerl.Load Dim myDataSet ¦ New CustomerOrders() Dim sqlString As String ¦ “Select * from Customers” OleDbSatsAdapterl – New OleDbSataAdapter(sqlString, OleDbConnectionl) OleDbSatsAdapterl.Fill(myDataSet, “Customers”) sqlString ¦ “Select * from Orders” OleDbSatsAdapterl – New OleDbSataAdapter (sqlString, OleDbConnectionl) OleDbSatsAdapterl.Fill(myDataSet, “Orders”) End Sub Теперь, когда данные загружены в набор данных, можно определить источник данных для отчета и просмотреть сам отчет, добавив в нижнюю часть процедуры CrystalReportViewerl_Load следующий код: OleDbSatsAdapterl.Fill(myDataSet, “Orders”) Dim my Report ¦ New adonetjsample() myReport.SetDataSource(myDataSet) CrystalReportViewerl.ReportSource m myReport End Sub При запуске приложения и просмотре этой формы отчет будет заполнен данными из набора данных ADO.NET и отобразится в окне приложения просмотра, как показано на рис. 6.38. Единственное разл