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

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 生成图表

共有1713人关注过本帖树形打印复制链接主题：生成图表

一笑

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：四尾狐帖子：808 积分：6213 威望：0 精华：0 注册：2014/3/23 23:02:00

生成图表

Post By：2016/5/7 22:23:00 [只看该作者]

如何把以下表生成图表（每一列数值对应一个柱状），看了帮助，不知如何绑定列，谢谢

此主题相关图片如下：统计表.png

大红袍

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/8 11:29:00 [只看该作者]

[此贴子已经被作者于2016/5/8 11:32:55编辑过]

大红袍

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：贵宾帖子：39310 积分：196782 威望：0 精华：1 注册：2015/4/25 9:23:00

Post By：2016/5/8 11:33:00 [只看该作者]

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
chart.AxisX.ClearValueLabel
Chart.BarClusterWidth = 80
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 2
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 100 '指定垂直坐标
Chart.AxisX.SetValueLabel(0, "应完成") '指定字符表示
Series.X(1) = 1 '指定水平坐标
Series.Y(1) = 30 '指定垂直坐标
Chart.AxisX.SetValueLabel(1, "已完成") '指定字符表示
Chart.AxisX.AnnoWithLabels = True '启用字符标示

下一主题 >> << 上一主题

主题：生成图表