ItemById(Id: Integer): IPrxDocumentTable;
ItemById(Id: Integer): Prognoz.Platform.Interop.Report.IPrxDocumentTable;
Id. Идентификатор таблицы данных.
Метод ItemById возвращает параметры таблицы данных по её идентификатору.
Идентификатор таблицы данных можно получить в свойстве IPrxDocumentTable.Id. Идентификаторы таблиц данных генерируются автоматически при вставке на табличный лист областей данных. Метод ItemById актуален для использования, если уже имеется какой-либо набор идентификаторов и не требуется перебирать всю коллекцию с помощью свойств Item-Count.
Для выполнения примера предполагается наличие в репозитории регламентного отчета с идентификатором «Report». В отчёте создан текстовый лист с наименованием «Документ», на этом листе на базе областей данных созданы таблицы данных.
Sub UserProc;
Var
MB: IMetabase;
Report: IPrxReport;
Doc: IPrxDocument;
Tables: IPrxDocumentTables;
Table: IPrxDocumentTable;
i: Integer;
IdArray: IArrayList;
Begin
MB := MetabaseClass.Active;
Report := MB.ItemById("Report").Bind As IPrxReport;
Doc := Report.Sheets.FindByName("Документ") As IPrxDocument;
Tables := Doc.DocumentTables;
//...
//Отбор идентификаторов таблиц данных по какому-либо признаку
//...
IdArray := New ArrayList.Create;
For i := 0 To Tables.Count - 1 Do
Table := Tables.Item(i);
If <Условие
отбора таблицы> Then
//Сохранение идентификатора в динамический массив
IdArray.Add(Table.Id);
End If;
End For;
//...
//Работа с отобранными таблицами данных
//...
For i := 0 To IdArray.Count - 1 Do
Table := Tables.ItemById(IdArray.Item(i));
//...
End For;
End Sub UserProc;
Указанный пример в общем виде показывает как можно получить коллекцию таблиц данных, отобрать из них необходимые по какому-либо признаку и в дальнейшем работать с ними.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.ForeCollections;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;
Public Shared Sub Main(Params: StartParams);
Var
MB: IMetabase;
Report: IPrxReport;
Doc: IPrxDocument;
Tables: IPrxDocumentTables;
Table: IPrxDocumentTable;
i: Integer;
IdArray: IArrayList = New ArrayListClass();
Begin
MB := Params.Metabase;
Report := MB.ItemById["Report"].Bind() As IPrxReport;
Doc := Report.Sheets.FindByName("Документ") As IPrxDocument;
Tables := Doc.DocumentTables;
//...
//Отбор идентификаторов таблиц данных по какому-либо признаку
//...
For i := 0 To Tables.Count - 1 Do
Table := Tables.Item[i];
If <Условие
отбора таблицы> Then
//Сохранение идентификатора в динамический массив
IdArray.Add(Table.Id);
End If;
End For;
//...
//Работа с отобранными таблицами данных
//...
For i := 0 To IdArray.Count - 1 Do
Table := Tables.ItemById(IdArray.Item[i] As Integer);
//...
End For;
End Sub;
См. также: