有些东西也不一定说读懂代码很重要，发现有很多人连电脑怎么一个工作原理都不太了解，其实“猜”很重要，多去“猜”多去证实自己的“猜”。

举个例子说明： 以最简单的 chartssample_beginner.scx 表单为例，运行效果是3D的，但只有把 Depth = 10参数改成0就可以得到平面的，整个表单就只有一个容器，容器就只有init一叶代码，非常简单，所以把这个容器拷贝到你自己的表单里面就可以了，布局都可以不用再管了，然后，如果打开表单初始化时如果你的表单数据还没准备好，可以加个条件限制，避免打开表单时执行容器的init。

备注：源文件，你可以理解为类似vfp的库文件，没有这些东西就无法运行你要的这些统计图表工具，所以要拷贝到你的项目的目录下，然后包含到项目文件里去。

3d


平面


代码


源文件

项目：


我的一个应用修改成的代码：


If Type('ca_len')='U'=.F.     && 大写“U”
    If ca_len>=1
* Create a new empty form
* Drom an instance of FoxCharts to it
* Put the following code in the Init() event of the form

* Make sure the form and foxcharts are big enough so that the chart
* will appear well

* Create main cursor
        Create Cursor chart_1 (shuju N(8,2), x轴坐标 c(15))

* Populate cursor with data each column with the sales amount for each x轴坐标
* this will have 12 rows, one for each x轴坐标

        For i=Min(ca_len,12) To 1 Step -1
            ic=Alltrim(Str(i))
            Insert Into chart_1 Values(ca&ic,Iif(i=1,"本周"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",''),Alltrim(Str(i-1))+"周前"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",'')))
        Endfor


* Next step is to Setup FoxCharts
* Supposing you already dropped an instance of FoxCharts to any form
        Local loChart
        loChart = This

        With loChart As FoxCharts Of FoxCharts.Vcx

            .ChartType = 5 && Line

* Then, we need to tell the class that it will receive 3 fields of data
* Each field will represent one line
* Later you can try changing the value of the property "ChartType" with values from 1 to 14
* Be careful because we don't have Charttype #3 available yet :-)

            .ChartsCount = 1

* Then we tell FoxCharts the name of the cursor that contains the data needed
            .SourceAlias = "chart_1"
            .FieldAxis2 = "x轴坐标"

* Next step is to populate the collection object that will receive the information from the cursor

* Start with the first column - shuju
            .Fields(1).FieldValue = "shuju" && This is the name of the 1st column of the cursor
            .Fields(1).Legend = ""
            .Fields(1).Color  = Rgb(255,0,0) && Red

* Setting the title and subtitle
            .Title.Caption = "“库存天数”走势图"
            .SubTitle.Caption = ""
            .FontName = "Tahoma"

* Setting the Chart Depth ( 3d effect )
            .Depth = 0

* Set the backColor
            .BackColor = Rgb(255,255,225)

* Set the captions for the axis
            .XAxis.Caption = ""
            .YAxis.Caption = ""

* Draw the chart

            .DrawChart()

        Endwith
    Endi
Endi

8.0打不开的

把自由表放到什么位置？如何操作示范一下，一下子还摸不到头

呵呵，我也在摸索。。。。。。

程序中没有用表

这个我不知道，但是，我不知道你为什么还在用8.0，下载9.0不是更好用吗？我用9.0 sp2  汉化 王苏 任明汉

记得 Ver 0.X 版支持 VFP 8 的，以后 Ver 1.X 版的必须是 VFP 9 SP2 版。

你不用管自由表放什么位置，他会自动产生在默认位置


这是自己生成的表：
* Create main cursor
        Create Cursor chart_1 (shuju N(8,2), x轴坐标 c(15))

* Populate cursor with data each column with the sales amount for each x轴坐标
* this will have 12 rows, one for each x轴坐标


这是生成的表插入你想要插入的数据：
        For i=Min(ca_len,12) To 1 Step -1
            ic=Alltrim(Str(i))
            Insert Into chart_1 Values(ca&ic,Iif(i=1,"本周"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",''),Alltrim(Str(i-1))+"周前"+Iif(yxca&ic=0,Chr(13)+Chr(10)+"(月未卖)",'')))
        Endfor

话分两头说，只从稳定性上说，在 VFP 各个版本中，V6 是最稳定的，V7 是过渡产品，V8 其次，V9 有不少问题的。
从功能性、兼容性上说，当然 V9 是最 Power 的

另外，V3 是 16位的，不讨论，V4 没有该版本，V5 汉化最彻底。