ITableIndexFields.Add

Синтаксис

Add(Value: ITableField);

Параметры

Value — поле таблицы.

Описание

Метод Add осуществляет добавление поля таблицы в индекс.

Пример

Sub Main;

Var

MB: IMetabase;

Object: IMetabaseObject;

Table: ITable;

Index: ITableIndex;

IndexFields: ITableIndexFields;

Field: ITableField;

Begin

MB:=MetabaseClass.Active;

Object:=MB.ItemById("TABLE_1").Edit;

Table:=Object As ITable;

Field:=Table.Fields.Item(2);

Index:=Table.Indexes.Item(0);

IndexFields:=Index.Fields;

IndexFields.Add(Field);

Object.Save;

End Sub Main;

После выполнения примера в первый индекс будет добавлено третье поле таблицы. Идентификатор таблицы - «Table_1».

См.также:

ITableIndexFields