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

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

想在图示情况下添加的字po或 py中的竖向列中添加数值,请问用如何用代码编写完整过程?谢谢!

<P>看了你给的回复,感觉您在这方面是高手,能否再请教一个问题?我想在图示情况下添加的字po或 py中的竖向列中添加数值,请问用如何用代码编写完整过程?谢谢!</P>
<P>Thank you very much!</P><br>

<STRONG>非常感谢saila 代码很好用，谢谢！真的非常感谢！！！<BR></STRONG>非常感谢saila  代码很好用，谢谢！真的非常感谢！！！

IFieldsEdit，IFields和IField的字段名属于只读属性，不可编辑。所以不能运行。

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

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

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

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

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