Создание поля в таблице

Question

надо создать поле в таблице шейп файла. Делаю так:

  Dim asdf As IField
  Set asdf = New Field
 
  pFeatureLayer.FeatureClass.Fields asdf

создается пустое поле. Как задать имя и остальные параметры?  Они ж ведь все read only

Answer 1

Open Attribute Table - Options - Add Field

Answer 2

типа этого:

    Dim pField As IField
    Dim pFieldEdit As IFieldEdit
   
    Set pField = New Field
    Set pFieldEdit = pField
    pFieldEdit.Name = "OBJECTID"
    pFieldEdit.AliasName = "OBJECTID"
    pFieldEdit.Type = esriFieldTypeOID
    pFieldsEdit.AddField pField