IPivotEvents.OnPivotTableCellChange

Копировать пример

Public Class Pivot_Events: PivotEvents
    // Событие, наступающее при редактировании ячейки
    Public Sub OnPivotTableCellChange(Value: IPivotTableCellEventArgs);
    Begin
        Debug.WriteLine("Изменяется ячейка " + Value.Row.ToString + ":" + Value.Column.ToString);
        If (Value.Row > 10) And (Value.Column > 10) Then
            Debug.WriteLine("Ячейка за пределами допустимого диапазона. Редактирование запрещено.");
            Value.Cancel := True;
        End If;
    End Sub OnPivotTableCellChange;
    // Событие, наступающее после редактировании ячейки
    Public Sub OnPivotTableCellChanged(Value: IPivotTableCellChangeEventArgs);
    Begin
        Debug.WriteLine("Ячейка изменена. Новое значение: " + Value.NewValue);
    End Sub OnPivotTableCellChanged;
End Class Pivot_Events;

Class TESTForm: Form
    UiErAnalyzer1: UiErAnalyzer;
    EaxDocumentViewerBox1: EaxDocumentViewerBox;
    Pvt: IPivot;
    Cookie: Integer;

    Sub TESTFormOnShow(Sender: Object; Args: IEventArgs);
    Var
        Express: IEaxAnalyzer;
        Events: Pivot_Events;
    Begin
        // Получим экспресс-отчет
        Express := UiErAnalyzer1.ErAnalyzer;
        // Получим настройки отображения таблицы данных отчета
        Pvt := Express.Pivot;
        // Включим возможность генерации событий
        Pvt.EventsEnabled := True;
        // Создадим экземпляр класса для обработк событий
        Events := New Pivot_Events.Create;
        // Подключим обработчик событий для таблицы
        Cookie := Pvt.AddEventHandler(Events);
    End Sub TESTFormOnShow;

    Sub TESTFormOnClose(Sender: Object; Args: IEventArgs);
    Begin
        // Удалим обработчик событий
        Pvt.RemoveEventHandler(Cookie);
    End Sub TESTFormOnClose;
End Class TESTForm;