IDimElements.NextSibling

Синтаксис

NextSibling(Element: Integer; [Through: Boolean]): Integer;

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

NextSibling[Element: uinteger; Through: boolean]: uinteger;

Параметры

Element. Индекс элемента.

Through. Необязательный параметр, определяющий, будет ли осуществляться переход к элементам этого же уровня у другого родителя. По умолчанию False.

Описание

Свойство NextSibling возвращает индекс следующего элемента относительно заданного с учетом родителя и уровня. «-1» если нет следующего элемента.

Комментарии

Для получения индекса предыдущего элемента относительно заданного используйте свойство IDimElements.PrevSibling.

Пример Fore

Для выполнения примера предполагается наличие в репозитории справочника с идентификатором «D_TO».

Добавьте ссылки на системные сборки Metabase, Dimensions.

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Elem: IDimElements;
    i, j, k: Integer;
Begin
    MB := MetabaseClass.Active;
    Dimen := MB.ItemById("D_TO").Open(Null) As IDimInstance;
    Elem := Dimen.Elements;
    i := 21;
    Debug.WriteLine("Индекс текущего элемента: " + i.ToString);
    j := Elem.PrevSibling(i, False);
    Debug.WriteLine("Индекс предыдущего элемента: " + j.ToString);
    k := Elem.NextSibling(i, False);
    Debug.WriteLine("Индекс следующего элемента: " + k.ToString);
End Sub UserProc;

После выполнения примера в окно консоли будут выведены:

• индекс текущего элемента;

• индекс предыдущего элемента;

• индекс следующего элемента.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Dimensions;
…
Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    Elem: IDimElements;
    i, j, k: uinteger;
Begin
    MB := Params.Metabase;
    Dimen := MB.ItemById["D_TO"].Open(Null) As IDimInstance;
    Elem := Dimen.Elements;
    i := 21;
    System.Diagnostics.Debug.WriteLine("Индекс текущего элемента: " + i.ToString());
    j := Elem.PrevSibling[i, False];
    System.Diagnostics.Debug.WriteLine("Индекс предыдущего элемента: " + j.ToString());
    k := Elem.NextSibling[i, False];
    System.Diagnostics.Debug.WriteLine("Индекс следующего элемента: " + k.ToString());
End Sub;

См. также:

IDimElements