>>for nLoop=1 to alen(aValues,1) && aValues contains needed values from table(s) >> cLegends=cLegends+chr(9)+alltrim(aValues[nLoop,1])+ ; >> str(100*aValues[nLoop,2]/nCounthist,6,2)+"%" >> cValues=cValues+chr(9)+str(aValues[nLoop,2]) >>endfor >>cGraphstring=cLegends+chr(13)+chr(10)+"Value"+cValues >>wait window "Formatting Graph... Wait, Please!" nowait >>if used("tmpStat3") >> select tmpStat3 >> use >>endif >>create cursor tmpStat3 (genfield G) >>append blank >>append general genfield class "msgraph.chart" data cGraphstring >>if type("this.oleGraph")<>"O" >> this.addobject("oleGraph","Oleboundcontrol") >>endif >>with this.oleGraph >> .left=this.shGraph.left+1 >> .width=this.shGraph.width-2 >> .top=this.shGraph.top+1 >> .height=this.shGraph.height-2 >> .autoactivate=0 && no on-line setting >> .controlsource="tmpStat3.genfield" >> do case >> case nStyle=1 && bar >> .haslegend=.f. >> case nStyle=2 && pie >> .haslegend=.t. >> .autoformat(5,1) >> endcase >> .visible=.t. >>endwith >>>