Index: IDimIndexInstance;
Свойство Index возвращает объект-родитель.
Sub UserProc;
Var
MB: IMetabase;
Dimen: IDimInstance;
InstLook: IDimIndexInstanceLookup;
IndexInst: IDimIndexInstance;
s: String;
Begin
MB:=MetabaseClass.Active;
Dimen:=MB.ItemById("D_TO").Open(Null) As IDimInstance;
If Dimen.Indexes.Count<>0 Then
InstLook:=Dimen.Indexes.Item(0).CreateDimIndexLookup;
IndexInst:=InstLook.Index;
s:=IndexInst.Index.Name;
End If;
End Sub UserProc;
После выполнения примера в переменной «s» будет содержаться наименование индекса, в котором был создан объект поиска.
См. также: