* test.prg

PUBLIC oform1

oform1=Newobject("form1")
oform1.Show
RETURN

DEFINE CLASS form1 AS form
    BorderStyle = 2
    Top = 50
    Left = 70
    Height = 500
    Width = 800
    DoCreate = .T.
    ShowTips = .T.
    Caption = "VFP_三维饼图示例"
    MaxButton = .F.
    Name = "form1"

    ADD OBJECT Container1 AS container WITH ;
        Top = 10,;
        Left = 16,;
        Width = 767,;
        Height = 321,;
        BackStyle = 0,;
        SpecialEffect = 1,;
        TabIndex = 24,;
        Name = "Container1"
    ADD OBJECT Oleboundcontrol1 AS oleboundcontrol WITH ;
        Top = 1,;
        Left = 3,;
        Height = 347,;
        Width = 790,;
        TabIndex = 25,;
        Stretch = 1,;
        Name = "Oleboundcontrol1"
    ADD OBJECT Command1 AS commandbutton WITH ;
        Top = 467,;
        Left = 571,;
        Height = 25,;
        Width = 63,;
        Caption = "退出",;
        TabIndex = 21,;
        Name = "Command1"

    PROCEDURE Init
        #DEFINE CRLF CHR(13)+CHR(10)
        #DEFINE TAB  CHR(9)

        cCount1 = "cCount1"+TAB+"1600"+TAB+"2840"+TAB+"1890"+TAB;
                            +"3040"+TAB+"3062"+TAB+"2233"+TAB+"2600"+TAB;
                            + "2610"+TAB+"2711"+TAB+"2509"+TAB+"2408"+TAB+"2409"+CRLF
        cList = ""+TAB+"A"+TAB+"B"+TAB+"C"+TAB+"D"+TAB+"E"+TAB;
                       +"F"+TAB+"G"+TAB+"H"+TAB+"I"+TAB+"J"+TAB+"K"+TAB+"L"+CRLF
        lcData = cList + cCount1
        CREATE CURSOR _ls (cVFPm G)
        APPEND BLANK
        APPEND GENERAL cVFPm CLASS "MSgraph.chart" DATA m.lcData
        THISFORM.Oleboundcontrol1.CONTROLSOURCE = "cVFPm"
        THISFORM.OleBoundControl1.autoformat(-4102,5)
        THISFORM.Oleboundcontrol1.ChartArea.Font.Size = 13
    ENDPROC

    PROCEDURE Destroy
        USE IN _ls
    ENDPROC

    PROCEDURE Command1.Click
        THISFORM.Release
    ENDPROC

ENDDEFINE
===================================================================
  研究别人的成果，不够成熟，仅供参考。

[此贴子已经被作者于2017-12-20 10:13编辑过]

谢谢！
留足，慢慢学习研究！

留个脚印，有点意思，不过我们在实际工作中，VFP只负责处理数组，至于数据以何种方式呈现？我们现在有魔方系统，Tableau 这些基于Web的工具，已经很少直接用VFP本身的图形处理了。

@wengjl、厨师王德榜：谢谢鼓励！纯个人业余爱好，偶有空闲时间，就向前辈、大侠们多学习一些基本的方法、技巧，共享出来，相互交流。

留着慢慢学习！

我原来的图表在Office 2007上显示不正常，新版Office不知道怎样改比较好。

我暂时也不知道如何修改哦，待研究之后有结果再交流哈。