ChildBlock(Index: Integer): IStandardDimBlock;
Index. Index of a child block.
The ChildBlock property returns an object that contains child block of the table dictionary.
Sub Main;
Var
MB: IMetabase;
Dimens: IStandardDimension;
DimBlocks: IStandardDimBlocks;
DimBlock, DimBlock1: IStandardDimBlock;
s: String;
Begin
MB:=MetabaseClass.Active;
Dimens:=MB.ItemById("TAB_DIM").Bind As IStandardDimension;
DimBlocks:=Dimens.Blocks;
DimBlock:=DimBlocks.Item(0);
If DimBlock.ChildrenBlockCount<>0 Then
DimBlock1:=DimBlock.ChildBlock(0);
s:=DimBlock1.Name;
End If;
End Sub Main;
After executing the example the DimBlock1 variable contains the first child block of the first dictionary block, if any exists, and the "s" variable contains its name. Table dictionary identifier: TAB_DIM.
See also: