IPivotEvents.OnBeforeDataSourceExecute

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

Public Class Pivot_Events: PivotEvents
    // Событие, наступающее перед вычислением источника данных
    Public Sub OnBeforeDataSourceExecute(DestinationSel: IDimSelectionSet);
    Var
        Sel: IDimSelection;
    Begin
        Debug.WriteLine("Отмечено в измерениях:");
        Debug.Indent;
        For Each Sel In DestinationSel Do
            Debug.WriteLine(Sel.Dimension.Ident + ": " + Sel.SelectedCount.ToString);
        End For;
        Debug.Unindent;
    End Sub OnBeforeDataSourceExecute;
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;