Работа с Crystal Report NET



             

Отчет с использованием фильтра - часть 2


Tables Dim tb As Engine.Table Dim rDoc As New ReportDocument

crFilter.SelectionFormula = "" rDoc.Load(Server.MapPath("reports\connect_inreport.rpt")) crFilter.ReportSource = rDoc tbs = rDoc.Database.Tables

tb = tbs(0) log = tb.LogOnInfo log.ConnectionInfo = ci tb.ApplyLogOnInfo(log)

crFilter.DataBind()

End Sub

Этот код загружает из базы записи всех заказчиков, проживающих в Америке. В принципе он ничем не отличается от обыкновенной процедуры загрузки отчета, которую мы применяли раньше.

Второму объекту Button дадим имя btnOutReport и в качестве отклика на нажатие мыши введем следующий код

Private Sub

btnOutReport_Click(ByVal sender As

System.Object, ByVal e As

System.EventArgs) Handles btnOutReport.Click

crFilter.Visible = True Dim log As New

TableLogOnInfo Dim ci As New

ConnectionInfo

ci.ServerName = ConfigurationSettings.AppSettings("server") ci.DatabaseName = ConfigurationSettings.AppSettings("database") ci.UserID = ConfigurationSettings.AppSettings("user") ci.Password = ConfigurationSettings.AppSettings("password")

log.ConnectionInfo = ci

Dim tbs As

Tables Dim tb As Engine.Table Dim rDoc As New ReportDocument rDoc.Load(Server.MapPath("reports\connect_outreport.rpt")) crFilter.ReportSource = rDoc crFilter.SelectionFormula = "{Customers.Country}='UK'"

tbs = rDoc.Database.Tables tb = tbs(0) log = tb.LogOnInfo log.ConnectionInfo = ci tb.ApplyLogOnInfo(log)

crFilter.DataBind()

End Sub

Данный код загружает всех заказчиков, проживающих в Великобритании. Условие на выбор задается оператором crFilter.SelectionFormula = "{Customers.Country}='UK'", которое эквивалентно указанию условия выбора в файле отчета.

Теперь при нажатии на кнопку btnInReport страница отображает заказчиков

Эти метода полезно использовать тогда, когда вам нужно задать условие на выбор записей из базы данных.




Содержание  Назад  Вперед