ITableFields.Add

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

Sub UserProc;
Var
    MB: IMetabase;
    Object: IMetabaseObject;
    Table: ITable;
    Fields: ITableFields;
    Field: ITableField;
Begin
    MB:=MetabaseClass.Active;
    Object:=MB.ItemById("TABLE_1").Edit;
    Table:=Object As ITable;
    Fields:=Table.Fields;
    Field:=Fields.Add;
    Field.DataType:=DbDataType.String;
    Field.Id:="Text_Field";
    Field.Name:="Текстовое поле";
    Field.Size:=50;
    Object.Save;
End Sub UserProc;