<img src="images/post/smile/dvbbs/em06.gif" /><img src="images/post/smile/dvbbs/em05.gif" />

<P>假如写成recs=map1.layers(0).searchexpression("名称＝text1.text")应该符合ＳＱＬ要求了吧，为什么总是说＂要求对象＂呢？</P>

<P>首先，查询表达式要正确，例如：</P>
<P>Private Sub Command1_Click()</P>
<P>Dim moRecset As MapObjects2.Recordset<BR>Dim recSelection As MapObjects2.Recordset</P>
<P>Dim Poly As New MapObjects2.Polygon</P>
<P>Dim Poly1 As New MapObjects2.Polygon</P>
<P>Set moRecset= Nothing'清空数据集</P>
<P>Set moRecset = Map1.Layers("country").Records</P>
<P>Dim Expression As String</P>
<P>'查询字符型moRecset是表示记录集，后面会提到，Fields表示字段,Name表示字段名</P>
<P>If moRecset.Fields("Name").Type = moString Then</P>
<P>Expression = "CNTRY_NAME = 'China' "  '注意，字符是单引号</P>
<P>Else</P>
<P><BR>Expression = "ID=0"</P>
<P>End If</P>
<P>'recSelection 为选择记录集赋值 </P>
<P>  Set recSelection = Map1.Layers("country").SearchExpression(Expression)<BR>  If recSelection.EOF Then '判断recSelection不为空<BR>   MsgBox "您所查找的信息不存在，请核对你的输入", vbOKOnly, "温馨的提示您!"</P>
<P>Exit sub<BR>  End If<BR>  recSelection.MoveFirst' 移动到首记录<BR>  Do While Not recSelection.EOF</P>
<P>'获得找到记录的空间位置，SHAPE表示要素</P>
<P>  Set Poly = recSelection.Fields("Shape").Value <BR>  recSelection.MoveNext 移动到下一条记录<BR><BR>   For i = 0 To Poly.Parts.Count - 1<BR>     Poly1.Parts.Add Poly.Parts(i)  'Poly1用于多项查询,将查询到的对象一起显示<BR>   Next<BR>  Loop<BR>  Map1.FlashShape Poly1, 3 '闪烁Poly1<BR>  Map1.TrackingLayer.Refresh (True)<BR>  Set Poly1 = Nothing</P>
<P>End Sub</P>