ILanerContext.FindSerieByStubKey

Синтаксис Fore

FindSerieByStubKey(StubKey: Integer): ILanerSerie;

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

FindSerieByStubKey(StubKey: integer): Prognoz.Platform.Interop.Laner.ILanerSerie;

Параметры

StubKey. Ключ источника данных.

Описание

Метод FindSerieByStubKey выполняет поиск ряда в контексте по ключу источника данных.

Пример Fore

Для выполнения примера предполагается наличие формы, содержащей:

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

Также предполагается наличие переменой «pContext», содержащей контекст.

Добавьте ссылки на системные сборки «Metabase», «Cubes». Пример является обработчиком события OnClick для кнопки.

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    pContext: ILanerContext;
    i: Integer;
    Ser: ILanerCalculateSerie;
    Stub: IVariableStub;
    lSerie: ILanerSerie;
Begin
    For i := 0 To LanerBox1.SelectedSeriesCount - 1 Do
        Ser := LanerBox1.SelectedSeries(i) As ILanerCalculateSerie;
        Stub := Ser.Stub;
        lSerie := pContext.FindSerieByStubKey(Stub.Key);
        If lSerie <> Null Then
            Debug.WriteLine(Stub.NameEx(True));
        End If;
    End For;
End Sub Button1OnClick;

После выполнения примера в окно консоли будут выведены расширенные наименования рядов, выделенных в компоненте «LanerBox1» и содержащихся в контексте.

Пример Fore.NET

Для выполнения примера предполагается наличие .NET-формы, содержащей:

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

Пример является обработчиком события Click для кнопки.

Imports Prognoz.Platform.Interop.Laner;
Imports Prognoz.Platform.Interop.Cubes;
…
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    i: Integer;
    Ser: ILanerCalculateSerie;
    Stub: IVariableStub;
    lSerie: ILanerSerie;
Begin
    For i := 0 To LanerBox1.SelectedSeriesCount - 1 Do
        Ser := LanerBox1.SelectedSeries(i) As ILanerCalculateSerie;
        Stub := Ser.Stub;
        lSerie := GlobalContext.FindSerieByStubKey(Stub.Key);
        If lSerie <> Null Then
            Debug.WriteLine(Stub.NameEx(True));
        End If;
    End For;
End Sub Button1OnClick;

См. также:

ILanerContext