附注：必须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