如何在当前图层的属性表里加新字段？（AO）火急！

如何在当前图层的属性表里加新字段？（AO）火急！

<P>Public Sub addfield()
Dim mxdoc As IMxDocument
Dim mymap As IMap
Dim pfl As IFeatureLayer
Dim pfc As IFeatureClass
Dim pfdse As IFieldsEdit
Dim pfds As IFields
Set mxdoc = Application.Document
Set mymap = mxdoc.FocusMap
Set pfl = mymap.Layer(0)           '改成你自己要添加字段的图层</P><P>Set pfc = pfl.FeatureClass
Set pfds = pfc.Fields
Set pfdse = pfds
'add field
Dim pfd As IField
Dim pfde As IFieldEdit
Set pfd = New Field
Set pfde = pfd
pfde.Name = "sz"                         '字段名
pfde.Type = esriFieldTypeDouble
pfde.Length = 10</P><P>pfdse.addfield pfd
End Sub</P>

<img src="images/post/smile/dvbbs/em07.gif" />