Add: ITableIndex;
Метод Add осуществляет добавление индекса таблицы.
Для выполнения примера предполагается наличие в репозитории таблицы с идентификатором "TABLE_1".
Sub UserProc;
Var
MB: IMetabase;
MObj: IMetabaseObject;
Table: ITable;
Indexes: ITableIndexes;
Index: ITableIndex;
Begin
MB:=MetabaseClass.Active;
MObj:=MB.ItemById("TABLE_1").Edit;
Table:=MObj As ITable;
Indexes:=Table.Indexes;
Index:=Indexes.Add;
Index.Fields.Add(Table.Fields.Item(0));
MObj.Save;
End Sub UserProc;
После выполнения примера в таблице будет создан индекс по первому полю.
См.также: