添加字段时，IFieldEdit为只读？

<P>在一个FeatureClass 中新增一个字段(Field)时，出错，错误为IFieldEdit是只读，</P>
<P>请教高手该如何解决？</P>
<P> Dim pField As IField<p></p></P>
<P  align=left>        Dim pFieldEdit As IFieldEdit<p></p></P>
<P  align=left>        On Error GoTo ErrorHandler<p></p></P>
<P  align=left>        AddField = False<p></p></P>
<P  align=left>        If (pFeatureClass Is Nothing) Then<p></p></P>
<P  align=left>            Exit Function<p></p></P>
<P  align=left>        End If<p></p></P>
<P  align=left>        pField = New Field<p></p></P>
<P  align=left> <p></p></P>
<P  align=left>        pFieldEdit = pField<p></p></P>
<P  align=left>        With pFieldEdit<p></p></P>
<P  align=left>          <B>  <U>.Length = 10             error<p></p></U></B></P>
<P  align=left><B><U>            .Name = "NewField"      error<p></p></U></B></P>
<P  align=left><B><U>            .Type = esriFieldTypeString  error</U></B><U><p></p></U></P>
<P  align=left>        End With<p></p></P>
<P  align=left>        pFeatureClass.AddField(pField)<p></p></P>
<P  align=left>        MsgBox("已添加新字段:" ; " " ; pField.Name)<p></p></P>
<P  align=left>        AddField = True<p></p></P>
<P  align=left>        Exit Function<p></p></P>
<P  align=left>ErrorHandler:<p></p></P>
<P >        MsgBox(Err.Description)</P>

<P>添加前开始编辑了吗?</P>

<P>图层在ARCMAP 中可以添加字段。</P>
<P>代码中可以修改纪录，应该是“开始编辑”状态，请问帝国总统在代码中如何“停止编辑”？</P><img src="images/post/smile/dvbbs/em05.gif" />

<P>在一个FeatureClass 中新增一个字段(Field)时，出错，错误为IFieldEdit的</P>
<P>属性:length,name等是只读的，请教高手该如何解决？</P>
<P>Dim pField As IField
<br>
<p>
<P align=left>        Dim pFieldEdit As IFieldEdit
<p>
<p>
<P align=left>        On Error GoTo ErrorHandler
<p>
<p>
<P align=left>        AddField = False
<p>
<p>
<P align=left>        If (pFeatureClass Is Nothing) Then
<p>
<p>
<P align=left>            Exit Function
<p>
<p>
<P align=left>        End If
<p>
<p>
<P align=left>        pField = New Field
<p>
<p>
<P align=left>
<p>
<p>
<P align=left>        pFieldEdit = pField
<p>
<p>
<P align=left>        With pFieldEdit
<p>
<p>
<P align=left>          <B>  <U>.Length = 10          ' error,属性Length为“readonly”
<p></U></B>
<p>
<P align=left><B><U>            .Name = "NewField"      'error属性Name为“readonly”
<p></U></B>
<p>
<P align=left><B><U>            .Type = esriFieldTypeString  'error</U></B><U>
<p></U>
<p>
<P align=left>        End With
<p>
<p>
<P align=left>        pFeatureClass.AddField(pField)
<p>
<p>
<P align=left>        MsgBox("已添加新字段:" ; " " ; pField.Name)
<p>
<p>
<P align=left>        AddField = True
<p>
<p>
<P align=left>        Exit Function
<p>
<p>
<P align=left>ErrorHandler:
<p>
<p>
<P>        MsgBox(Err.Description)</P>