vb+mo按值渲染是结果一片空白,求高人指教

<P>我在用vb+mo进行图层按值渲染时,渲染结果却是一片空白,什么都没有了,不知道怎么回事啊,求高手点拨一下,代码如下,图层是手动加载上去的.谢了 </P>
<P>Option Explicit<BR>Private Sub Form_Load()<BR>        Dim moRs As MapObjects2.Recordset<BR>        Dim moRenderer As New MapObjects2.ValueMapRenderer<BR>        Dim strs As New MapObjects2.Strings<BR>        Dim sFldname As String<BR>        Dim moSym As New MapObjects2.Symbol<BR>        Dim i As Integer<BR>        <BR>        <BR>        Set moRs = Map1.Layers(0).Records<BR>        sFldname = "featureid"<BR>        Do While Not moRs.EOF<BR>        strs.Add moRs(sFldname).ValueAsString<BR>        moRs.MoveNext<BR>        Loop<BR>        <BR>        <BR>        Set Map1.Layers(0).Renderer = moRenderer<BR>        moRenderer.Field = sFldname<BR>        moRenderer.ValueCount = strs.Count - 3<BR>        <BR>        moRenderer.UseDefault = True<BR>        Set moSym = moRenderer.DefaultSymbol<BR>        moSym.Color = moPaleYellow<BR>        For i = 0 To moRenderer.ValueCount - 1<BR>        moRenderer.Value(i) = strs(i)<BR>        Next i<BR>        <BR>        'Set Map1.Layers(0).Renderer = moRenderer<BR>        Map1.Refresh<BR>End Sub</P>

代码没有错误，关键是你加载的图层，如果是面图层，可以看到效果。如果图层是点状或线状对象，你将看到的是空白。对于点状和线状图层的渲染，需要另外的办法实现。

<P>用分类渲染什么类型的图层都可以</P>