求快速遍历属性表方法,谢谢

<P>请教各位~~</P>
<P>在AO+VBA下,请问遍历一个SHP文件的属性表的方法大概有几种,那种准备效率最高呢?</P>
<P>我的用以下:</P>
<P>    Dim pFCursor As IFeatureCursor<BR>    Dim pFeature As IFeature<BR>    Set spFCursor = pFeatLayer.Search(Nothing, False)<BR>    Set pFeature = pFCursor.NextFeature<BR><BR>    Do Until pFeature Is Nothing<BR>        Let pFeature.Value(10) = "GIS帝国"<BR>        pFeature.Store<BR>        Set pFeature = pFCursor.NextFeature<BR>    Loop</P>
<P>但发现运算大数据太慢了,多运算几次时ARCMAP会死掉,是不是这种方法太占内存了,</P>
<P>不知有什么更好的方法使运算更快,枚举?!别的~~~~~~~~~~先谢了.</P>