IRubricatorInstanceList.FindByKey

Синтаксис Fore

FindByKey(RubricatorKey: Integer): IRubricatorInstance;

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

FindByKey(RubricatorKey: uinteger): Prognoz.Platform.Interop.Cubes.IRubricatorInstance;

Описание

Метод FindByKey возвращает базу из коллекции по её ключу.

Пример Fore

Для выполнения примера предполагается наличие формы, на которой расположены компонент LanerBox и компонент UiErAnalyzer с идентификатором «UiErAnalyzer1», являющегося источником данных для LanerBox. В «UiErAnalyzer1» должна быть загружена рабочая книга базы данных временных рядов в рядном режиме.

Добавьте ссылки на системные сборки «Cubes» и «Metabase».

Sub FindRub;
Var
    Laner: ILaner;
    RubList: IRubricatorInstanceList;
    mb: IMetabase;
    key: Integer;
    RubrInst: IRubricatorInstance;
Begin
    Laner := UiErAnalyzer1.ErAnalyzer.Laner;
    RubList := Laner.UsedRubricators;
    mb := MetabaseClass.Active;
    key := mb.GetObjectKeyById("FC_COMM");
    RubrInst := RubList.FindByKey(key);
    If RubrInst <> Null Then
            Debug.WriteLine("Является источником данных");
        Else
            Debug.WriteLine("Не является источником данных");
    End If;
End Sub FindRub;

После выполнения примера будет определено: является ли база данных временных рядов с идентификатором «FC_COMM» источником данных для рядов в загруженной рабочей книге. Результат будет выведен в окно консоли.

Пример Fore.NET

Для выполнения примера предполагается наличие формы, на которой расположены компонент LanerBoxNet и компонент UiErAnalyzerNet с идентификатором «UiErAnalyzerNet1», являющегося источником данных для LanerBoxNet. В «UiErAnalyzerNet1» должна быть загружена рабочая книга базы данных временных рядов в рядном режиме.

Imports Prognoz.Platform.Interop.Laner;
Imports Prognoz.Platform.Interop.Cubes;
…
Private Sub FindRub();
Var
    Laner: ILaner;
    RubList: IRubricatorInstanceList;
    mb: IMetabase;
    key: uinteger;
    RubrInst: IRubricatorInstance;
Begin
    Laner := UiErAnalyzerNet1.ErAnalyzer.ErAnalyzer.Laner;
    RubList := Laner.UsedRubricators;
    mb := Self.Metabase;
    key := mb.GetObjectKeyById("FC_COMM");
    RubrInst := RubList.FindByKey(key);
    If RubrInst <> Null Then
            System.Diagnostics.Debug.WriteLine("Является источником данных");
        Else
            System.Diagnostics.Debug.WriteLine("Не является источником данных");
    End If;
End Sub;

См. также: