<P>dim pFeatureClass as IFeatureClass</P><P>dim pFeatureCursor as IFeatureCursor</P><P>dim pFeature as IFeature</P><P>public sub Recile(byval pFeatureLayer as IFeatureLayer)</P><P>   set pFeatureClass = pFeatureLayer.FeatureClass</P><P>   set pFeatureCursor = pFeatureClass.Search(nothing,false)</P><P>   set pFeature = pFeatureCursor.NextFeature</P><P>   do while nof pFeature is nothing</P><P>       set pFeature = pFeatureCursor.NextFeature</P><P>   loop</P><P>end sub</P>

<DIV class=quote><B>以下是引用<I>追风浪子</I>在2004-9-15 15:19:07的发言：</B>

<P>Dim pFeatcls As IFeatureClass

Set pFeatLayer = pMap.Layer(0)

Set pFeatcls = pFeatLayer.FeatureClass</P>
<P>IFeature = IFeatureCursor.NextFeature</P></DIV>
<P>真的很感谢，但能不能再详细点啊</P>

<P> Dim pFeatcls As IFeatureClass

 Set pFeatLayer = pMap.Layer(0)

 Set pFeatcls = pFeatLayer.FeatureClass</P><P>IFeature = IFeatureCursor.NextFeature</P>