生成图表问题 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

下面是我在窗口中设置的一段代码：

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("年统计表") '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
Series.X(i) = t.Rows(i)("年份") '指定水平坐标
Series.Y(i) = t.Rows(i)("投诉次数") '指定垂直坐标
Next

生成下面的一个条形图，可是其纵坐标是从11开始的，2013年和2015年也没有显示，这两年的数据都是11，我希望能够纵坐标能够从0 开始并且根据数据自动生成合适上限，求代码

图片点击可在新窗口打开查看此主题相关图片如下：qq图片20160728113113.png

2。上面生成的条形图是先从表中生成临时的年统计表然后在生成条形图的，因为这样的话我要生成好几个条形图，每次都要生成一个临时统计表，我在帮助文件里看到有跳过临时表的代码，但感觉我这里不适用，因为我是将一列的时间分年和月来分别统计的，不知有没有代码可以实现跳过临时表，麻烦了。

在窗口里面麻烦了

下载信息 [文件大小：下载次数： ]
点击浏览该文件:投诉与建议.foxdb

有办法在试用版中打开商业版的项目吗

看错它提示的是非商业版
图片点击可在新窗口打开查看

此主题相关图片如下：1.png

十分感谢那第二个问题能解决吗

就是我发给你的那个文件那你那边可以打开这个文件吗？我用试用版打不开怎么弄

请问可以把统计图等合计去掉吗

代码如下

        Dim Chart As WinForm.Chart '定义一个图表变量
        Dim Series As WinForm.ChartSeries '定义一个图系变量
        Dim t As Table = Tables("地区年统计表") '定义一个变量t引用数据表
        Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
        Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
        Chart.DataSource = "地区年统计表" '设置绑定表
        Chart.SeriesList.Clear() '清除图表原来的图系
        For Each c As Col In t.Cols
            If c.Name <> "年份" Then
                Series = Chart.SeriesList.Add() '增加一个图系
                Series.Text = c.Name '设置图系的标题
                Series.X.DataField = "年份" 'X轴绑定到产品列
                Series.Y.DataField = c.Name '设置Y轴的绑定列
            End If
        Next
        Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
        Chart.LegendVisible = True '显示图列
        Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
图片点击可在新窗口打开查看此主题相关图片如下：qq截图20160729084834.png

此主题相关图片如下：1.png

不是汇总模式而是不想让统计图里出现水平汇总那一列也就是g.HorizontalTotal = True这个但表里又要这里列图片点击可在新窗口打开查看

不知能不能实现

太感谢了只怪自己编程基础太差

主题：生成图表问题