upload=png]UploadFile/2005-12/200512152261536506.png[/upload]

问题就这样  该怎么解决?[

<P>谢谢你!</P>
<P><img src="images/post/smile/dvbbs/em12.gif" /></P>
<P>但是我怎么运行不了啊</P>
<P>到pNewField.Name = "MyFieldName"这一步就提示出错信息</P>
<P>Can't assign to read-only property</P>
<P>是怎么回事啊  VBA是什么啊?请教大师!</P>
<P>我想在图层里加属性代码 需添加字段 完整的该怎么办?在GIS里</P>
<P>请赐教!不胜感激,谢谢!</P>

<P>谢谢你!</P>
<P><img src="images/post/smile/dvbbs/em12.gif" /></P>
<P>但是我怎么运行不了啊</P>
<P>到pNewField.Name = "MyFieldName"这一步就提示出错信息</P>
<P>Can't assign to read-only property</P>
<P>是怎么回事啊  VBA是什么啊?请教大师!</P>
<P>我想在图层里加属性代码 需添加字段 完整的该怎么办?在GIS里</P>
<P>请赐教!不胜感激,谢谢!</P>

<P>打开VBA来写吧，我给你写一下代码。</P>
<P>Private Sub main()<BR>    Dim pMx As IMxDocument<BR>    Dim pMap As IMap<BR>    Dim pFeatureClass As IFeatureClass<BR>    Dim pFeatureLayer As IFeatureLayer<BR>    Dim pFields As IFields<BR>    Dim pFieldsEdit As IFieldsEdit<BR>    Dim pNewField As IField<BR>    <BR>    <BR>    Set pMx = ThisDocument<BR>    Set pMap = pMx.FocusMap<BR>    Set pFeatureLayer = pMap.Layer(1)<BR>    Set pFeatureClass = pFeatureLayer.FeatureClass<BR>    Set pFields = pFeatureClass.Fields<BR>    Set pFieldsEdit = pFields<BR>    <BR>    Set pNewField = New Field<BR>    pNewField.Name = "MyFieldName"<BR>    pNewField.AliasName = "MyFieldAliasName"<BR>    pNewField.Type = esriFieldTypeString<BR>    <BR>    pFieldsEdit.AddField pNewField<BR>    <BR>End Sub<BR></P>