IDimIndexInstanceLookup.LookUp

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

Sub UserProc;
Var
    MB: IMetabase;
    Dimen: IDimInstance;
    IndxsInst: IDimIndexesInstance;
    IndexInst: IDimIndexInstance;
    InstLook: IDimIndexInstanceLookup;
    LookElem: IDimElementArray;
    i: Integer;
Begin
    MB:=MetabaseClass.Active;
    Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
    IndxsInst:=Dimen.Indexes;
    If IndxsInst.Count<>0 Then
        IndexInst:=IndxsInst.Item(0);
        InstLook:=IndexInst.CreateDimIndexLookup;
        InstLook.AttributeValue(0):=10;
        LookElem:=InstLook.LookUp;
        i:=LookElem.Count;
    End If;
End Sub UserProc;