IPrxTextFields.Item

Синтаксис Fore

Item(Index: Integer): IPrxTextField;

Синтаксис Fore.NET

Item[System.Int32]: Prognoz.Platform.Interop.Report.IPrxTextField;

Параметры

Index - индекс текстового поля в коллекции.

Описание

Свойство Item возвращает текстовое поле по заданному индексу.

Пример Fore

Для выполнения примера понадобится регламентный отчёт с идентификатором «Report» и созданным на нём текстовым листом «Документ1».

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    Doc: IPrxDocument;
    TFs: IPrxTextFields;
    Tf: IPrxTextField;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("Report").Bind As IPrxReport;
    Doc := Report.Sheets.FindByName("Документ1") As IPrxDocument;
    TFs := Doc.TextFields;
    For i := 0 To TFs.Count - 1 Do
        Tf := TFs.Item(i);
        Debug.WriteLine(Tf.Name + ": " + Tf.Value);
    End For;
End Sub Main;

После выполнения примера в консоль будет выведен список всех созданных на листе текстовых полей.

Пример Fore.NET

Для выполнения примера понадобится регламентный отчёт с идентификатором «Report» и созданным на нём текстовым листом «Документ1».

Imports System.Diagnostics;
Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Report;

Public Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    Doc: IPrxDocument;
    TFs: IPrxTextFields;
    Tf: IPrxTextField;
    i: Integer;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REP1"].Bind() As IPrxReport;
    Doc := Report.Sheets.FindByName("Документ1") As IPrxDocument;
    TFs := Doc.TextFields;
    For i := 0 To TFs.Count - 1 Do
        Tf := TFs.Item[i];
        Debug.WriteLine(Tf.Name + ": " + Tf.Value);
    End For;
End Sub;

После выполнения примера в консоль будет выведен список всех созданных на листе текстовых полей.

См. также:

IPrxTextFields