'功能：使用layer.search模糊查询若干图元
'环境：VB6+mapx4.5+win2000
'附注：必须miDatasetLayer绑定；字段可以无索引；图层可以不注册。
Private Sub Command2_Click()
Dim lyr As MapXLib.Layer
Dim ds As MapXLib.Dataset
Dim ftrs As MapXLib.Features
Dim ftr As MapXLib.Feature
Set lyr = Map1.Layers(1)
Set ds = Map1.Datasets.Add(miDataSetLayer, lyr)
Set ftrs = lyr.Search("name like ""%开发区%""")
For Each ftr In ftrs
lyr.Selection.Add ftr
Map1.Bounds = Map1.Layers.Bounds
Next
End Sub
