IPrxDataSources.Count

Синтаксис

Count: Integer;

Описание

Свойство Count возвращает количество источников данных.

Пример Fore

Для выполнения примера предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT», в котором содержатся источники данных. В модуле подключите системные сборки: Metabase, Report.

Sub UserProc;
Var
    MB: IMetabase;
    Report: IPrxReport;
    DtSources: IPrxDataSources;
    DtSource: IPrxDataSource;
    Name: String;
    i: Integer;
Begin
    MB := MetabaseClass.Active;
    Report := MB.ItemById("REGULAR_REPORT").Bind As IPrxReport;
    DtSources := Report.DataSources;
    i := DtSources.Count;
    DtSource := DtSources.Item(0);
    Name := DtSource.Name;
    Debug.WriteLine(i);
    Debug.WriteLine(Name);
    Debug.WriteLine(DtSources.Report.Name);
End Sub UserProc;

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

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

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

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Report: IPrxReport;
    DtSources: IPrxDataSources;
    DtSource: IPrxDataSource;
    Name: String;
    i: Integer;
Begin
    MB := Params.Metabase;
    Report := MB.ItemById["REGULAR_REPORT"].Bind() As IPrxReport;
    DtSources := Report.DataSources;
    i := DtSources.Count;
    DtSource := DtSources.Item[0];
    Name := DtSource.Name;
    System.Diagnostics.Debug.WriteLine(i);
    System.Diagnostics.Debug.WriteLine(Name);
    System.Diagnostics.Debug.WriteLine(DtSources.Report.Name);
End Sub;

См. также:

IPrxDataSources