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

数据没关系，只不过条高低问题，只要那样效果就行了，实际用的过程中，这个数也是变化的从0-1变化的

[此贴子已经被作者于2019/11/27 11:57:24编辑过]

9楼重新发了，数值不一定一样，因为数值是变化的

还是同样的项目，还是没看懂。这个数据需要什么结果。不要说是1楼的图，完全没有办法把数据和这个结果对应起来

可以自己编数据，只想做一楼那样的图就行，然后我再往里套，辛苦老师了！

[此贴子已经被作者于2019/11/27 19:34:19编辑过]

那就直接按照这里的表结构和数据直接套代码就行了：http://www.foxtable.com/webhelp/topics/0970.htm

因为我的资料就一行，没有循环，所以套不进去，Y轴也是比较特殊

[此贴子已经被作者于2019/11/27 22:19:47编辑过]

一行可以循环列，一样套。

或者就是6楼的用法，这个用法有什么问题？

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

For Each c As Col In t.Cols

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c.Name '设置图系的标题

Series.Length = 1 '设置图系的长度

Series.X(0) = 1

Series.Y(0) = t.Rows(0)(c.Name)

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

老师，如果18楼的代码，每个竖条之间想一点缝隙，应该怎么写代码啊？

这样

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.BarClusterWidth = 120

For Each c As Col In t.Cols

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c.Name '设置图系的标题

Series.Length = 1 '设置图系的长度

Series.X(0) = c.Index

Series.Y(0) = t.Rows(0)(c.Name)

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

或者这样

Dim Chart As WinForm.Chart '定义一个图表变量

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("表A") '定义一个变量t引用数据表

Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)

Chart.SeriesList.Clear() '清除图表原来的图系

Chart.BarClusterWidth = 120

For Each c As Col In t.Cols

Series = Chart.SeriesList.Add() '增加一个图系

Series.Text = c.Name '设置图系的标题

Series.Length = 1 '设置图系的长度

Series.X(0) = c.Index

Series.Y(0) = t.Rows(0)(c.Name)

Chart.AxisX.AnnoWithLabels = True '启用字符标示

Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列

Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

主题：图表的实现