IDataAreaCommentManager.AddComment

Синтаксис

AddComment(TabSheet: ITabSheet; Row: Integer; Column: Integer; Text: String): IDataAreaComments;

Параметры

TabSheet. Таблица листа, в которой добавляется комментарий для ячейки с данными.

Row. Индекс строки ячейки с данными.

Column. Индекс столбца ячейки с данными.

Text. Текст добавляемого комментария.

Описание

Метод AddComment добавляет комментарий для указанной ячейки с данными.

Комментарии

Указываемые координаты должны соответствовать ячейке, относящейся к диапазону ячеек с данными какого-либо среза. Диапазон с данными можно получить, используя свойство IEaxGrid.SpecificRange с параметром EaxRangeType.Internal. Для проверки наличия возможности работы с комментариями используйте свойство IEaxDataAreaSource.HasCommentsSupport.

Результатом работы метода будет коллекция всех комментариев, добавленных для указанной ячейки.

Пример

Для выполнения примера в репозитории предполагается наличие регламентного отчёта с идентификатором REPORT. В качестве источника в отчёт добавлен стандартный куб, в котором включена возможность сохранения комментариев к ячейкам с данными. На базе источника создан срез и визуализатор - таблица.

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

Sub UserProc;
Var
    Mb: IMetabase;
    Report: IPrxReport;
    DataArea: IEaxDataArea;
    Slice: IEaxDataAreaSlice;
    Grid: IEaxGrid;
    TSheet: ITabSheet;
    DataRange: ITabRange;
    CommentManager: IDataAreaCommentManager;
    Comments: IDataAreaComments;
Begin
    Mb := MetabaseClass.Active;
    Report := Mb.ItemById("REPORT").Open(Null) As IPrxReport;
    // Аналитическая область данных
    DataArea := Report.DataArea;
    Slice := DataArea.Slices.Item(0);
    If Slice.Source.HasCommentsSupport Then
        Grid := Slice.Views.Item(0) as IEaxGrid;
        TSheet := Grid.TabSheet;
        DataRange := Grid.SpecificRange(EaxRangeType.Internal);
        // Менеджер комментариев
        CommentManager := DataArea.CommentManager;
        // Добавление комментария
        Comments := CommentManager.AddComment(TSheet, DataRange.Top, DataRange.Left, "Первая ячейка с данными");
        Debug.WriteLine("Количество комментариев для ячейки: " + Comments.Count.ToString);
    End If;
End Sub UserProc;

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

См. также:

IDataAreaCommentManager