当前位置: 代码迷 >> VFP >> Vfp图表显示有关问题
  详细解决方案

Vfp图表显示有关问题

热度:5786   发布时间:2013-02-26 00:00:00.0
Vfp图表显示问题
我是照帮助中的示例程序做的,但不能按我想象中的样子显示。要显示的数据表为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
  相关解决方案