IRdsSortAttribute.RefAttribute

Синтаксис Fore

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

RefAttribute: Prognoz.Platform.Interop.Rds.IRdsAttribute;

Описание

Свойство RefAttribute определяет связанный атрибут сортировки элементов справочника НСИ.

Пример Fore

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

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

Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
    Dict: IRdsDictionaryInstance;
    Attrs: IRdsAttributes;
    SAttr: IRdsSortAttribute;
    Sorter: IRdsElementsSorter;
    Elems: IRdsDictionaryElements;
    Attr1: IRdsAttribute;
Begin
    Dict:= RdsDictionaryBox1.Source.Instance;
    Elems:= Dict.Elements;
    Sorter:= Elems.CreateSorter(Elems.Root);
    Attrs:= Dict.Dictionary.Attributes;
    Attr1:= Attrs.FindById("test1");
    SAttr:= Sorter.Attributes.AddRefAttribute(attr1, attr1.Link.Reference.Dictionary.Attributes.FindById("test2"), True);
    debug.WriteLine(SAttr.RefAttribute.Name);
    Sorter.Sort(False);
    RdsDictionaryBox1.RefreshElements;
    Sorter.Save;
End Sub Button1OnClick;

После выполнения примера элементы справочника «SORT» будут отсортированы по атрибуту «test2» справочника «LinkRDS».

Пример Fore.NET

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

Пример является обработчиком события 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;
    Attr1: IRdsAttribute;
Begin
    Dict := RdsDictionaryBoxNet1.Source.CtrlBox.Instance;
    Elems := Dict.Elements;
    Sorter := Elems.CreateSorter(Elems.Root);
    Attrs := Dict.Dictionary.Attributes;
    Attr1:= Attrs.FindById("test1");
    SAttr := Sorter.Attributes.AddRefAttribute(attr1, attr1.Link.Reference.Dictionary.Attributes.FindById("test2"), True);
    System.Diagnostics.Debug.WriteLine(SAttr.RefAttribute.Name);
    Sorter.Sort(False);
    RdsDictionaryBoxNet1.CtrlBox.RefreshElements();
    Sorter.Save();
End Sub;

См. также:

IRdsSortAttribute