添加一个Field字段（ZZ）

Public   Sub  AddField()
' /为FeatureLayer添加一个字段

     Dim  pMxDocument  As  IMxDocument
     Dim  pMap  As  IMap
    
     ' /实现IMxDocument和IMap接口
     Set  pMxDocument  =  ThisDocument
     Set  pMap  =  pMxDocument.FocusMap
    
     ' /其实获得的是FeatureLayer在内存中的地址
     Dim  pFeatureLayer  As  IFeatureLayer
     Set  pFeatureLayer  =  pMap.Layer( 0 )
    
     ' /定义好即将添加的层的相关信息
     Dim  pField  As  IFieldEdit
     Set  pField  =   New  Field
    pField.Name  =   " hihi "
    pField.Type  =  esriFieldTypeString
    pField.Length  =   50
    
     ' /将FeatureLayer的内存地址传给pTable
     ' /等于实现了ITable接口
     ' /接下来使用ITable的增加字段方法
     Dim  pTable  As  ITable
     Set  pTable  =  pFeatureLayer
    
    pTable.AddField pField
    
End Sub