用AO实现在表中添加字段

<PRE>Public Sub AddFieldToTable(aFeatureClass As IFeatureClass, strFieldName As String)

On Error GoTo errHand

    Dim pTable As ITable
    Set pTable = aFeatureClass
    
    ' set up a field to add to table
    Dim pField As IField
    Set pField = New Field
    Dim pFieldEdit As IFieldEdit
    Set pFieldEdit = pField
    
    With pFieldEdit
          .Name = strFieldName
          .Type = esriFieldTypeString
          .DefaultValue = ""
          .Length = 100
    End With
    
    ' add field to table
    pTable.AddField pField
  
    Exit Sub
    
errHand:
' release objects
Set pTable = Nothing
Set pField = Nothing
Set pFieldEdit = Nothing
msgbox Err.Number ; vbcrlf ; Err.Source ; vbcrlf ; Err.Description

End Sub</PRE>

不要打开图层，打开的图层是不允许编辑滴

老大，不让添加呀