下面的代码段中使用lyr.search方法为何出现自动化错误

<P>出错代码段如下:</P>
<P>Public Sub HDM(mline As esriCore.ipolyline)</P>
<P>Dim i As Long<BR>Dim lyr As esriCore.ifeaturelayer<BR>Dim icursor As esriCore.ifeaturecursor<BR>Dim ifeature As esriCore.ifeature</P>
<P>Dim pSpliter As esriCore.ISpatialFilter<BR>Set pSpliter = New esriCore.SpatialFilter<BR>pSpliter.SpatialRel = esriSpatialRelCrosses<BR>Set pSpliter.Geometry = mline</P>
<P>For i = 0 To frmmain.map1.map.layercount - 1<BR>Set lyr = frmmain.map1.map.layer(i)<BR>If lyr.FeatureClass.ShapeType = esriGeometryPolyline Then<BR>         Set icursor = lyr.Search(pSpliter, False)  '///此处出错，提示自动化错误<BR>         Set ifeature = icursor.NextFeature</P>
<P>............................<BR>............................<BR>............................</P>
<P>End Sub</P>

<P>请指点啊</P>

pSpliter.GeometryField = "SHAPE"

<P>多谢问题解决了</P><img src="images/post/smile/dvbbs/em04.gif" />

<P>呵,如上上述</P>