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
' /为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