IRdsSortAttribute.Index

Синтаксис Fore

Index: Integer;

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

Index: System.Int32;

Описание

Свойство Index возвращает индекс атрибута сортировки в коллекции.

Пример Fore

Для выполнения примера необходимо наличие формы, расположенных на ней кнопки с идентификатором «Button1», компонентов RdsDictionaryBox1 и UiRdsDictionary1, являющегося источником данных для компонента RdsDictionaryBox1. К компоненту UiRdsDictionary1 через свойство Object подключен справочник НСИ. Подключите системные сборки ExstCtrls, Forms, Metabase, Rds.

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Dict: IRdsDictionaryInstance;
    Attrs: IRdsAttributes;
    SAttr: IRdsSortAttribute;
    Sorter: IRdsElementsSorter;
    Elems: IRdsDictionaryElements;
Begin
    Dict := RdsDictionaryBox1.Source.Instance;
    Elems := Dict.Elements;
    Sorter := Elems.CreateSorter(Elems.Root);
    Attrs := Dict.Dictionary.Attributes;
    SAttr := Sorter.Attributes.Add(Attrs.FindById("Name"), True);
    debug.WriteLine(SAttr.Index);
    Sorter.Sort(False);
    RdsDictionaryBox1.RefreshElements;
End Sub Button1OnClick;

После выполнения примера при нажатии кнопки «Button1» будет произведена сортировка по атрибуту Name и вывод в консоль индекса атрибута сортировки.

Пример Fore.NET

Для выполнения примера необходимо наличие формы, расположенных на ней кнопки с идентификатором «button1», компонентов RdsDictionaryBoxNet1 и UiRdsDictionaryNet1, являющегося источником данных для компонента RdsDictionaryBoxNet1. К компоненту UiRdsDictionaryNet1 через свойство Object подключен справочник НСИ. Подключите системные сборки Forms.NET, Forms, Rds.

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

Imports Prognoz.Platform.Interop.Forms;
Imports Prognoz.Platform.Interop.Rds;
…
Private Sub button1_Click(sender: System.Object; e: System.EventArgs);
Var
    Dict: IRdsDictionaryInstance;
    Attrs: IRdsAttributes;
    SAttr: IRdsSortAttribute;
    Sorter: IRdsElementsSorter;
    Elems: IRdsDictionaryElements;
Begin
    Dict := RdsDictionaryBoxNet1.Source.Instance;
    Elems := Dict.Elements;
    Sorter := Elems.CreateSorter(Elems.Root);
    Attrs := Dict.Dictionary.Attributes;
    SAttr := Sorter.Attributes.Add(Attrs.FindById("Name"), True);
    System.Diagnostics.Debug.WriteLine(SAttr.Index);
    Sorter.Sort(False);
    RdsDictionaryBoxNet1.CtrlBox.RefreshElements();
End Sub;

См. также:

IRdsSortAttribute