出图形报表问题?

[sayor]

怎能把一个数据表的数据分类汇总后方便快捷地出图形图(类似EXCEL的图表),在VFP的报表国打印

[rida]

贴一些我做过的代码给你可能你有帮助

计算数据

lsqlwhere='sshz.sscode=thisform.txt3.value and sshz.month>=thisform.txt4.value and sshz.month<=thisform.txt5.value '

select ;
sshz.sscode as sscode,;
sshz.month as month,;
sshz.zcost as zcost;
from sshz;
where ;
&lsqlwhere ;
into cursor sscbsee22

CRLF=cHR(13)+CHR(10)
TAB=cHR(9)
bartype=-4100
create table foo (gen1 g)
append blank
cgdata=""+tab+sscbsee22.sscode+crlf
sele sscbsee22
scan
cGData =cgdata+subs(month,5,2)+TAB+str(zcost,6,2)+CRLF
endscan
sele foo
append general gen1 class "msgraph.chart" DATA m.cGData
thisformset.frmmodel2.oleboundcontrol1.refresh
THISformset.frmmodel2.OleBoundControl1.ControlSource = "Gen1"
THISformset.frmmodel2.OleBoundControl1.HasLegend = .t.
THISformset.frmmodel2.OleBoundControl1.autoformat(bartype,1)
thisformset.frmmodel2.lockscreen=.t.
thisform.visible=.f.
thisformset.frmmodel2.label1.caption=iif(seek(thisform.txt3.value,'pcode1','code'),alltrim(pcode1.desc),'')
thisformset.frmmodel2.visible=.t.
thisformset.frmmodel2.lockscreen=.f.

打印报表

public SScbsee222
SScbsee222=thisform.label1.caption+'成本分析图'
REPORT FORM REPORTS\ssCBSEE22 PREVIEW
RELEASE SSCBSEE222

主要用Ms Graph 图表

[ccbzzp]

用報表經靈吧