AddCalculatedElement(Name: String; RelationElement: Integer; Relation: DimRelation): Integer;
Name. Наименование нового вычисляемого элемента;
RelationElement. Элемент, относительно которого, будет позиционироваться вычисляемый элемент;
Relation. Позиция вставки вычисляемого элемента относительно элемента RelationElement.
Метод AddCalculatedElement осуществляет создание нового вычисляемого элемента для данного измерения.
Для выполнения примера предполагается наличие формы, расположенной на ней кнопки с наименованием «Button1», компонента TabSheetBox и компонента UiErAnalyzer с наименованием «UiErAnalyzer1», являющегося источником данных для TabSheetBox.
Sub Button1OnClick(Sender: Object; Args: IMouseEventArgs);
Var
OLAP: IEaxAnalyzer;
Pivot: IPivot;
Dim: IDimInstance;
Calcs: IPivotEvaluatorDimCalculates;
Calc: IPivotEvaluatorDimCalculatesItem;
Sel: IDimSelection;
Elements: IDimElements;
Element1, Element2: String;
i: Integer;
Begin
OLAP := UiErAnalyzer1.ErAnalyzer;
Pivot := OLAP.Pivot;
Dim := Pivot.TopHeader.Dim(0);
Calcs := Pivot.Evaluator.DimCalculates;
Calc := Calcs.FindByDimKey(Dim.Key);
Sel := Pivot.Selection.FindByKey(Dim.Key);
Elements := Calc.Dim.Elements;
Element1 := Elements.Id(Sel.Element(0));
Element2 := Elements.Id(Sel.Element(1));
i := Calc.AddCalculatedElement(Element1 + "+" + Element2, Sel.Element(1), DimRelation.Next);
Calc.Expression(i).AsString := "@" + Element1 + "+ @" + Element2;
End Sub Button1OnClick;
При нажатии на кнопку для первого измерения, расположенного по столбцам, будет создан вычисляемый элемент, осуществляющий суммирование первого и второго элемента измерения. Вычисление осуществляется для элементов, присутствующих в отметке измерения.
Исходные данные:
Таблица с вычисляемым элементом:
См. также:
IPivotEvaluatorDimCalculatesItem