Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= Forms("窗口1").Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "表A" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到月份列
Series.Y.DataField = "收入" 'Y轴绑定到数
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到月份列
Series.Y.DataField = "成本" 'Y轴绑定到数
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到月份列
Series.Y.DataField = "费用" 'Y轴绑定到数
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到月份列
Series.Y.DataField = "税收" 'Y轴绑定到数
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "月" 'X轴绑定到月份列
Series.Y.DataField = "利润" 'Y轴绑定到数
这个怎么简化
[此贴子已经被作者于2021/11/24 16:17:04编辑过]