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个月，而且饼状图显示时，只有一种颜色，即：月份，没有用不同的颜色显示出每个月份的销售数量，我该怎样修改？谢谢

8 个解决方案

#1

请参考示例：
VFP中使用Office-MsGraph图表
http://download.csdn.net/source/839018

#2

谢谢十豆三老师的帮助，我已做好了。但还有一个问题想问一下，根据你的示列，当在图上显示数据表格时，为何小数部分显示不出来，而我看了，在生成的查询表中，数据是有小数部分的，但在图上显示数据表格时，全是整数了。

#3

转成字符型后显示试试

#4

我数据表里已经转成字符型的了，而且还特别留了2位小数位数。还有为何图表显示在单独运行该表单时显示正常，一和其它表单连编后，数值就不对了，都是‘0’了，这会是什么情况导致的？

#5

还有一个表单调用的问题想问一下，我做了三个表单，表单一，表单二，表单三。表单一为顶层表单，用do form 表单二，来调用表单二，表单二为‘在顶层表单中’，模式为1；表单二又通过do form 表单三，来调用表单三，表单三为‘在顶层表单中’，模式也为1；但是表单二在调用表单三时，除了do form 语句，我还写了thisform.release,即调用表单三时，释放表单二，但在连编后，调用表单三后，表单三出现在最前面，但表单二并没有释放掉，依然在屏幕中能看到，只是在表单三的后面（表单二的尺寸大于表单三），这是为何？我该如何做才能释放表单二？

#6

学习了

#7

为何图表显示这个表单在vfp环境下运行，可以正常显示，但是一连编后，统计数据怎么都成"0"（零）了？

#8

该回复于2012-07-28 09:37:54被版主删除

#1