[求助]!!!请问：在ArcMap里如何编写添加字段代码？在VB里如何编写？请指教万分感谢！！！

<STRONG><FONT color=#ff3300>[紧急求助]!!!请问</FONT>：在ArcMap里如何编写<FONT color=#0909f7>添加字段</FONT><FONT color=#f709f7>代码</FONT>？在VB里如何编写？请指教万分感谢！！！</STRONG>

<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>

<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>

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

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

<P>如何编写字段添加代码?想在图层中添加属性</P>

<P>如何编写字段添加代码?想在图层中添加属性</P><BR>

在你的图层名上右击，然后选择Open attribute table,在打开数据表后，在右下有个Option,点开选择Add field，然后就可以编辑你想输入的字段名，类型等了。

<P><STRONG><FONT color=#0000ff>谢谢你!可我想知道具体代码该如何编写?请高手指教!!!谢谢!</FONT></STRONG></P>

<P>朋友：这是用vba写的添加字段代码，宏命令写的，你可以随便改。请指教。</P>
<P>Sub ff()<BR>  Dim pMx As IMxDocument<BR>    Dim pMap As IMap<BR>    Dim pFeatureClass As IFeatureClass<BR>    Dim pFeatureLayer As IFeatureLayer<BR>    Dim ptable As ITable<BR>    <BR>    Dim pFields As IFields<BR>    Dim pFieldsEdit As IFieldsEdit<BR>    Dim pNewField As IFieldEdit2<BR>    <BR>    <BR>    Set pMx = ThisDocument<BR>    Set pMap = pMx.FocusMap<BR>    Set pFeatureLayer = pMap.Layer(0)<BR>    Set pFeatureClass = pFeatureLayer.FeatureClass<BR>    Set ptable = pFeatureClass<BR>        <BR>    Set pNewField = New Field<BR>    pNewField.Name = "pp"<BR>    pNewField.AliasName = "po"<BR>    pNewField.Type = esriFieldTypeString<BR>    <BR>    ptable.AddField pNewField</P>
<P>End Sub<BR></P>