帮帮忙,专题图的问题???

<P> cr.ChartType = moPie
                    For i = 0 To Map1.Layers.Count - 1
                        Set mapLayer1 = Map1.Layers.Item(i)
                        If mapLayer1.Name = "区界R" Then
                            Exit For
                        End If
                    Next i
                    
                    If mapLayer1.shapeType = moShapeTypePolygon Then
                        str.Add "分类"
                        str.Add "名称"
                        str.Add "区域"

                        cr.MinPieSize = Map1.Height * 0.005
                        cr.MaxPieSize = Map1.Height * 0.015
                        
                        cr.FieldCount = str.Count
                        For j = 0 To str.Count - 1
                            cr.Field(j) = str(j)
                            cr.Color(j) = QBColor(j + 1)
                        Next j
                        Set mapLayer1.Renderer = cr
                        Map1.Refresh</P>

<P>我看了李克群的,教材,我按他的代码写了,当时没有专题图出来,麻烦高手们帮我看一下,</P>