我是照帮助中的示例程序做的,但不能按我想象中的样子显示。要显示的数据表为sum_month.dbf,里面两个字段,mon(月份)和sum1(数量),我要求横坐标为1-12共12个月份,纵坐标为每个月的销售数量,我的语句是这样写的:
strs="数量"+tab+"月份"+crlf
SELECT sum_month
GO top
DO WHILE !EOF()
strs=strs+ALLTRIM(sum_month.mon)+tab+ALLTRIM(sum_month.sunm)+crlf
SELECT sum_month
SKIP
IF EOF()
EXIT
ENDIF
endd
CREATE TABLE pic(gen1 G)
IF !USED('pic')
USE pic IN 0
ENDIF
SELECT pic
APPEND BLANK
THISform.LockScreen = .T.
append general pic.gen1 class "msgraph.chart" DATA strs
THISform.OleBoundControl1.ControlSource = "pic.gen1"
THISform.OleBoundControl1.HasLegend = .F.
IF thisform.opt2.Value=1
THISform.OleBoundControl1.autoformat(bartype,1)
ELSE
IF thisform.opt2.Value=2
THISform.OleBoundControl1.autoformat(coltype,1)
ELSE
THISform.OleBoundControl1.autoformat(pietype,7)
ENDIF
ENDIF
THISform.LockScreen = .F.
现在显示的图横坐标只有‘月份’两字,我想显示1,2,3,.....共12个月,而且饼状图显示时,只有一种颜色,即:月份,没有用不同的颜色显示出每个月份的销售数量,我该怎样修改?谢谢
------解决方案--------------------------------------------------------
请参考示例:
VFP中使用Office-MsGraph图表
http://download.csdn.net/source/839018