ILanerCellAttributes.MoveTo

Синтаксис Fore

MoveTo(FromIndex: Integer; ToIndex: Integer);

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

MoveTo(FromIndex: integer; ToIndex: integer);

Параметры

FromIndex. Индекс начальной позиции атрибута;

ToIndex. Индекс позиции, в которую необходимо переместить атрибут.

Описание

Метод MoveTo перемещает указанный атрибут в требуемую позицию.

Комментарии

Индексация атрибутов в коллекции и начинается с нуля. Для получения количества атрибутов в коллекции используйте свойство ILanerCellAttributes.Count.

Пример Fore

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

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

Sub UserProc;
Var
    mb: IMetabase;
    WbkObj: IMetabaseObject;
    EaxAn: IEaxAnalyzer;
    Laner: ILaner;
    CommentAttr: ILanerCellAttributes;
Begin
    // Получаем рабочую книгу
    mb := MetabaseClass.Active;
    WbkObj := mb.ItemById("WORKBOOK_CMT").Edit;
    EaxAn := WbkObj As IEaxAnalyzer;
    Laner := EaxAn.Laner;
    // Получаем коллекцию атрибутов комментария
    CommentAttr := Laner.CommentAttributes;
    // Если в коллекции больше 2-х атрибутов, то меняем их местами
    If CommentAttr.Count >= 2 Then
        CommentAttr.Move(0, 1);
    End If;
    // Сохраняем изменения
    WbkObj.Save;
End Sub UserProc;

В результате выполнения примера первый и второй атрибуты в коллекции будут обменяны местами.

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Express;
Imports Prognoz.Platform.Interop.Laner;
…
Public Shared Sub Main(Params: StartParams);
Var
    mb: IMetabase;
    WbkObj: IMetabaseObject;
    EaxAn: IEaxAnalyzer;
    Laner: ILaner;
    CommentAttr: ILanerCellAttributes;
Begin
    // Получаем рабочую книгу
    mb := Params.Metabase;
    WbkObj := mb.ItemById["WORKBOOK_CMT"].Edit();
    EaxAn := WbkObj As IEaxAnalyzer;
    Laner := EaxAn.Laner;
    // Получаем коллекцию атрибутов комментария
    CommentAttr := Laner.CommentAttributes;
    // Если в коллекции больше 2-х атрибутов, то меняем их местами
    If CommentAttr.Count >= 2 Then
        CommentAttr.Move(0, 1);
    End If;
    // Сохраняем изменения
    WbkObj.Save();
End Sub;

См. также:

ILanerCellAttributes