如何得到一个层中的所有feature的个数呢？

<P>ae＋vb　有什么办法啊</P>
<P>？</P>

<P> Dim pFeatcls As IFeatureClass<BR> Dim pFeatLayer As IFeatureLayer<BR> Dim pDoc As IMxDocument<BR> Dim pMap As IMap<BR> <BR> Set pDoc = ThisDocument<BR> Set pMap = pDoc.Maps.Item(0)<BR> Set pFeatLayer = pMap.Layer(0)<BR> Set pFeatcls = pFeatLayer.FeatureClass<BR> <BR> ' create the query filter, and assign it a where clause<BR> Dim pQFilt As IQueryFilter<BR> Set pQFilt = New QueryFilter<BR> <BR> pQFilt.WhereClause = "subtype = 'COM'"<BR> <BR> MsgBox pFeatcls.FeatureCount(pQFilt)</P>