属性查图中出现的问题，请高手们帮忙！

<P>我在编属性查图时出现如下问题：</P>
<P>代码： </P>
<P>Private Sub CmdSearch_Click()</P>
<P>    Dim lyr As Layer<BR>    Dim ftrs As Features<BR>    Set lyr = Map1.Layers.Add(m_sEditLayerName)<BR>    Map1.DataSets.Add miDataSetLayer, lyr<BR>    lyr.Search (Chr(34) + Text1.Text + Chr(34))<BR>    lyr.Selection.Replace ftrs<BR>    Map1.CenterX = ftrs.CenterX<BR>    Map1.CenterY = ftrs.CenterY<BR>    Map1.Zoom = 0.4<BR>    Unload Me</P>
<P>End Sub</P>
<P>点击运行时，在text1中输入要查询的属性，如一条道路名称，结果显示错误："invalid feature object",错误之处是："lyr.Selection.Replace ftrs",</P>
<P>请问有谁知道为什么，请告诉我好吗？谢谢！！！</P><img src="images/post/smile/dvbbs/em02.gif" />