[求助]MO+VB,新建一个图层怎么也不能上色

<P>新建了一个图层，图层包含一个多边形。刷新之后只能显示边框，却不能着色。不知道哪里问题。（刚学不久，请大家帮帮忙。谢谢）</P>
<P>Dim new_line As New MapObjects2.Polygon<br>Dim JsFields As New MapObjects2.TableDesc</P>
<P>Dim pSaveConnect As New MapObjects2.DataConnection<br>Dim pSaveShape As New MapObjects2.MapLayer<br>Dim pSaveRecs As New MapObjects2.Recordset    '新的实体集<br>Dim pJsField As Object</P>
<P>pSaveConnect.Database = App.Path</P>
<P>        If Not pSaveConnect.Connect Then Exit Sub<br>        '获取数据库结构<br>        If Not IsNull(pSaveConnect.FindGeoDataset("TEST")) Then<br>            pSaveConnect.DeleteGeoDataset "TEST"<br>        End If<br>        Set JsFields = CreateFields '创建数据集字段的函数，这里就不写了<br>        pSaveShape.GeoDataset = pSaveConnect.AddGeoDataset("TEST", moShapeTypePolygon, JsFields)<br>        <br>        Set pSaveRecs = pSaveShape.Records<br>        pSaveRecs.AutoFlush = False<br>        pSaveRecs.AddNew<br>        Call GetDS(pSaveRecs)  '创建多边形<br>        Set pSaveRecs.Fields("Shape").Value = new_line<br>        pSaveRecs.Fields("H").Value = 12 '随便建了一个字段</P>
<P>        pSaveRecs.Update<br>        pSaveRecs.StopEditing<br>        <br>        mapMain.Layers.Add pSaveShape</P>
<P><br>        Dim VR As New MapObjects2.ValueMapRenderer<br>        Set pSaveShape.Renderer = VR<br>        VR.field = "H"<br>        VR.ValueCount = 1<br>        VR.SymbolType = 2<br>        VR.UseDefault = True<br>        VR.Value(0) = "12"<br>        VR.Symbol(0).Style = 0<br>        VR.Symbol(0).color = moGreen<br>        VR.Symbol(0).Size = 0<br>        VR.Symbol(0).Outline = True<br>        pSaveConnect.Disconnect</P>
<P>legLayer.LoadLegend True</P>
<P>mapMain.Refresh</P>

<P>Private Sub menu_Layers_color_Click(Index As Integer)<BR>    CDG.ShowColor<BR>    CDG.Flags = 3<BR>    Dim Layer As New MapObjects2.MapLayer<BR>    Dim msg<BR>    If Map1.Layers.Count = 0 Then<BR>       msg = MsgBox("当前没有图层，请添加图层！", 321, "提示")<BR>    Else<BR>    Set Layer = Map1.Layers.Item(0)<BR>    Layer.Symbol.Color = CDG.Color<BR>    Map1.Refresh<BR>    End If<BR>End Sub</P>
<P>这是我做的一个图层颜色改变的事件，仅供参考！！！</P>

同意楼上看法！<img src="images/post/smile/dvbbs/em01.gif" /><img src="images/post/smile/dvbbs/em01.gif" />