大家来看看，ArcEngine开发，我这两个函数怎么老出错。

<P>功能：在一个要素类中查找与直线pLine相交的要素</P>
<P>Public Function findCrossPointInFeatureClass(ByVal pFeatureLayer As IFeatureLayer, ByVal pLine As ILine) As Integer<BR>        Dim pGeo as IGeometry<BR>        pGeo=pLine</P>
<P>        Dim pFilter As ISpatialFilter<BR>        Dim pFeatureSelection As IFeatureSelection</P>
<P>        pFeatureSelection = pFeatureLayer </P>
<P>        pFilter = New SpatialFilter '过滤算子<BR>        With pFilter<BR>            .Geometry = pGeo<BR>            .SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects<BR>        End With</P>
<P>        pFeatureSelection.SelectFeatures(pFilter, esriSelectionResultEnum.esriSelectionResultNew, False)'在这个地方出错<BR>    End Function</P>
<P> Public Function findCrossPointInFeatureClass(ByVal pFeatureClass As IFeatureClass, ByVal pLine As ILine) As Integer<BR>        Dim pGeo as IGeometry<BR>        pGeo=pLine</P>
<P>        Dim pFilter As ISpatialFilter<BR>        pFilter = New SpatialFilter '过滤算子<BR>        With pFilter<BR>            .Geometry = pGeo<BR>            .SpatialRel = esriSpatialRelEnum.esriSpatialRelIntersects<BR>        End With</P>
<P>        pFeatureSelection.SelectFeatures(pFilter, esriSelectionResultEnum.esriSelectionResultNew, False)</P>
<P>        Dim pFeatureCursor As IFeatureCursor<BR>        Dim count As Integer = 0<BR>        Dim pFeature As IFeature</P>
<P>        pFeatureCursor = pFeatureClass.Search(pFilter, False) '在这个地方出错</P>
<P>    End Function<BR></P>

esriSpatialRelEnum下面还有几种不同的选择你可以尝试