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

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

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

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

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

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

Chart.ChartType2 = ChartTypeEnum.XYPlot '图表4类型该为线形

Chart.DataSource = "统计表1" '设置绑定表

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

For Each c As string in {"净重_1","净重_2","净重_3"}

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

Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
        Series.Text = c '设置图系的标题
        Series.X.DataField = "时" 'X轴绑定到产品列
        Series.Y.DataField = c '设置Y轴的绑定列
Next

Chart.SeriesList2.Clear() '清除图表原来的图系
Series = Chart.SeriesList2.Add() '增加一个图系

Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
Series.X.DataField = "时" 'X轴绑定到月份列
Series.Y.DataField = "净重_3" 'Y轴绑定到数量列

1、图表4放在最前面 --- 图表4放到第一个图即可

hart.ChartType = ChartTypeEnum.XYPlot '图表1类型该为Bar(条形)

Chart.ChartType2 = ChartTypeEnum.Bar '图表4类型该为线形

Chart.DataSource = "统计表1" '设置绑定表

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

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

For Each c As string in {"净重_1","净重_2","净重_3"}

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

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

Series.TooltipText = "X = {#XVAL}, Y = {#YVAL}"
Series.X.DataField = "时" 'X轴绑定到月份列
Series.Y.DataField = "净重_3" 'Y轴绑定到数量列

2、http://www.foxtable.com/webhelp/topics/1020.htm

3、http://www.foxtable.com/webhelp/topics/1042.htm

http://www.foxtable.com/webhelp/topics/1039.htm

Chart.AxisY.MajorTick = False '不在坐标轴轴上显示主刻度
Chart.AxisY.MinorTick = False '不在坐标轴轴上显示主刻度

Chart.AxisY.GridMajorVisible = False '不显示主刻度的网格线

Chart.AxisY.GridMinorVisible = False '不显示主刻度的网格线

AxisY2同样按上面设置

主题：如何使用多图表