Pager: IPrxTableIslandPager;
Pager: Prognoz.Platform.Interop.Report.IPrxTableIslandPager;
Свойство Pager возвращает параметры работы реляционной области в режиме постраничного отображения.
Для включения режима используйте свойство IPrxTableIslandPager.Enabled.
Для переключения страниц в режиме постраничного вывода используйте методы IPrxTableIslandPager.Next и IPrxTableIslandPager.Prev.
Для выполнения примера добавьте ссылки на системные сборки Metabase и Report. Пример является обработчиками события для компонентов формы. На форме расположите компоненты UiReport и ReportBox, 3 кнопки. Выберите в качестве объекта UiReport регламентный отчет с реляционной областью. Установите UiReport в качестве отчета, выводимого в ReportBox. Активируйте UiReport1.
Class TESTForm: Form
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
Pager: IPrxTableIslandPager;
Sub TESTFormOnCreate(Sender: Object; Args: IEventArgs);
Begin
Report := UiReport1.Report;
TabIs := Report.TableIslands;
TI := TabIs.Item(0);
debug.WriteLine("Область: " + TI.Name);
Pager := TI.Pager;
Pager.Enabled := True;
TI.Recalc;
Pager.DisplayPage := 0;
Pager.Rows := 10;
debug.WriteLine("Количество страниц отображения: " + Pager.Pages.ToString);
TI.Recalc;
End Sub TESTFormOnCreate;
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
Pager.Prev;
End Sub Button1OnClick;
Sub Button2OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
Pager.Next;
End Sub Button2OnClick;
Sub Button3OnClick(Sender: Object; Args: IMouseEventArgs);
Begin
Pager.ExpandAll;
End Sub Button3OnClick;
End Class TESTForm;
После открытия формы на листе будет загружена первая страница отображения, количество страниц будет выведено в окно консоли. Для перехода по страницам используйте кнопки с идентификаторами «Button1» и «Button2». Для выключения режима постраничного отображения без перевычисления реляционной области используйте кнопку с идентификатором «Button3».
Для выполнения примера добавьте ссылки на системные сборки Metabase и Report. Пример является обработчиками события для компонентов формы. На форме расположите компоненты UiReportnet и ReportBoxnet, 3 кнопки. Выберите в качестве объекта UiReportnet регламентный отчет с реляционной областью. Установите UiReportnet в качестве отчета, выводимого в ReportBoxnet. Активируйте UiReportnet1.
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Public Partial Class TESTForm: Prognoz.Platform.Forms.Net.ForeNetForm
Public Constructor TESTForm();
Begin
InitializeComponent();
End Constructor;
Report: IPrxReport;
TabIs: IPrxTableIslands;
TI: IPrxTableIsland;
Pager: IPrxTableIslandPager;
Private Sub TESTForm_Load(sender: System.Object; e: System.EventArgs);
Begin
Report := UiReportnet1.ReportUi.Report;
TabIs := Report.TableIslands;
TI := TabIs.Item[0];
Pager := TI.Pager;
Pager.Enabled := True;
TI.Recalc();
Pager.DisplayPage := 0;
Pager.Rows := 10;
System.Diagnostics.Debug.WriteLine("Количество страниц отображения: " + Pager.Pages.ToString());
TI.Recalc();
End Sub;
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Begin
Pager.Prev(1);
End Sub;
Private Sub button2_Click(sender: System.Object; e: System.EventArgs);
Begin
Pager.Next(1);
End Sub;
Private Sub button3_Click(sender: System.Object; e: System.EventArgs);
Begin
Pager.ExpandAll();
End Sub;
End Class;
После открытия формы на листе будет загружена первая страница отображения, количество страниц будет выведено в окно консоли. Для перехода по страницам используйте кнопки с идентификаторами «button1» и «button2». Для выключения режима постраничного отображения без перевычисления реляционной области используйте кнопку с идентификатором «button3».
См. также: