образиться во время просмотра

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

образиться во время просмотра отчета, что будет свидетельствовать о корректном определении нового местоположения”) Dim myReport As New employee__listing() CrystalReportsViewerl.ReportSource = myReport myReport.Load() 280 Глава 8 Dim myDutabase = myReport,. Database Dim myConnectlnfo As New CrystalDecisions.Shared.Connectionlnfo() Dim myTableLogonlnfо As New CrystalDecisions.Shared.TableLogOnlnfо() Dim myTables = myDatabase.Tables Dim myTable As CrystalDecisions.CrystalReports.Engine.Table For Each myTable In myTables MsgBox(“flo изменения: ” & myTable.Location.ToString()) If myTable.Location.ToStringO ¦ “Employee” Then myTable.Location = “EmployeejCurrent” End If myTable.ApplyLogOnlnfо(myTableLogonlnfо) MsgBox(“После изменения: ” & myTable.Location.ToString()) Next CrystalReportViewerl.ReportSource — myReport CrystalReportViewer1.Refresh() End Sub Что же, давайте продолжим. Запустите приложение и щелкните на кнопке Set Database Location. По мере выполнения цикла For. .. для таблиц, на экран должны выводиться различные окна сообщений о произведенных изменениях в местоположении. Со временем отчет загруз