如何在VFP中实现动态统计图形[4]

    loForm=CREATEOBJECT("FORM")
　　loForm.ADDOBJECT("Lhole","OLEBOUNDCONTROL")
　　loForm.Lhole.STRETCH=2
　　lcCsource=lcSavetable+"."+lcFname
　　loForm.Lhole.CONTROLSOURCE=lcCsource
　　loForm.Lhole.HEIGHT= _SCREEN.HEIGHT
　　loForm.Lhole.WIDTH=_SCREEN.WIDTH
　　lcError=ON("ERROR")
　　ON ERROR APPEND GENERAL &lcFname
　　DATA lcData CLASS "MSGRAPH.CHART"
　　loForm.Lhole.HasLegend=llLegend
　　IF ISBL(lcTitle)
　　loForm.Lhole.HasTitle = .F.
　　ELSE
　　loForm.Lhole.HasTitle = .T.
　　loForm.Lhole.ChartTitle.Caption = lcTitle
　　ENDIF
　　IF lnMtype< >0 .AND. lnStype< >0
　　loForm.Lhole.AutoFormat(lnMtype,lnStype)
　　ENDIF
　　IF !ISBL(lcError)
　　ON ERROR &lcError
　　ELSE
　　ON ERROR
　　ENDIF
　　loForm.RELEASE
　　* FLUSH
　　IF llOpensTAble
　　USE
　　ENDIF
　　SELE (lnCURSELE)