b Database_Button_Click(ByVal

Автор admin Среда, 27 января 2010 10:16

b Database_Button_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Database_Button.Click Dim Form2 As New Form2() Form2.Show() End Sub В режиме конструктора перетащите элемент управления CrystalReportViewer на форму Form2 и, щелкнув правой кнопкой мыши на проекте, выберите из контекстного команду Add | Add Existing Item…. В открывшемся диалоговом окне найдите и выберите файл отчета C:\CrystalReports\Chapter08\worldsales_northwind.rpt (путь может оказаться иным, в зависимости от места, куда был выгружен код примеров) и добавьте его в проект. Перетащите компонент ReportDocument на форму, и после открытия диалогового окна выберите engine_basic.worldsales_northwind. Теперь для определения класса Connectionlnfo потребуется добавить небольшой фрагмент кода: Private $ub Forml_Load(ByVal sender As System.Object, , ByVal e As System.EventArgs) Handles MyBase.Load Dim myReport As New worldsales_northwind() CrystalReportsViewerl.ReportSource « myReport myReport.Load() 278 Глава 8 Dim myDBConnectlnfo As New CrystalDecisions. Shared. Connectionlnf о () With myDBConnectlnfo .ServerNa