MO分等源码

<P>现提交一段MO（SHP文件）分等代码，请版主和各位大虾指正：</P>
<P>可直接在Map1_AfterLayerDraw事件中调用，已测试。</P>
<P>Dim strExpression As String
Dim g_symSelection As New MapObjects2.Symbol
g_symSelection.Color = moBlue
g_symSelection.SymbolType = moFillSymbol
Dim recSelection As MapObjects2.Recordset
Set recSelection = ThisMap.Layers(0).SearchExpression(Bount_id<20 )
If Not recSelection.EOF Then
Map1.DrawShape recSelection, g_symSelection
End If
Set recSelection = Nothing
''''''''''''''''''''''''''''''''''''
g_symSelection.Color = moGreen
Set recSelection = Map1.Layers(0).SearchExpression("Bount_id<20 and bount>10 ")
If Not recSelection.EOF Then
Map1.DrawShape recSelection, g_symSelection
End If
Set recSelection = Nothing
g_symSelection.Color = moDarkGreen</P>
<P>Set recSelection = Map1.Layers(0).SearchExpression("Bount_id<10")
If Not recSelection.EOF Then
Map1.DrawShape recSelection, g_symSelection
End If
Set recSelection = Nothing</P>