IsDimElement : Boolean;
Свойство IsDimElement возвращает True, в случае если элемент произвольного заголовка имеет привязку к элементу имерения, в противном случае - False.
В рассматриваемом примере предполагается существование объекта Report типа IPrxReport.
Sub UserProc;
Var
Report: IPrxReport;
DIs: IPrxDataIslands;
DI: IPrxDataIsland;
Prop: IPrxDataIslandProperties;
Dim : IDimInstance;
DimProp : IPrxDataIslandDimension;
RN : IPrxDataIslandDimensionLayoutNodes;
Element, Child : IPrxDataIslandDimensionLayoutNode;
Begin
DIs := Report.DataIslands;
DI := DIs.Item(0).Edit;
Prop := DI.Properties;
Dim := DI.Slice.LeftHeader.Item(0).Dimension;
DimProp := Prop.Dimension(Dim.Dimension);
RN := DimProp.Layout.RootNodes;
Element := RN.Item(0).Children.Item(16);
If Element.IsDimElement Then
Child := Element.Children.Add;
Child.Caption := Dim.Elements.Name(35);
Child.DimElement(Dim) := 35;
Else
Debug.WriteLine(False)
End If;
DI.Save;
End Sub UserProc;
После выполнения примера, в случае если у заданного элемента произвольного заголовка была привязка к элементу измерения, то для него будет создан дочерний элемент, в противном случае - нет и в окно консоли будет выведено заданное сообщение.
См. также: