-- 作者:ufo20085
-- 发布时间:2020/10/30 9:35:00
-- 为什么图表显示有点问题
有一个图表线的连接显示有问题,如附件所示。代码如下:
Forms("盈利图表").open() Dim Chart As WinForm.Chart \'定义一个图表变量 Dim Series As WinForm.ChartSeries \'定义一个图系变量 Chart = Forms("盈利图表").Controls("Chart1") \' 引用窗口中的图表 \'Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮 Chart.ChartType = ChartTypeEnum.Bar \'图表1类型该为Bar(条形) Chart.ChartType2 = ChartTypeEnum.XYPlot \'图表2类型该为线形 Chart.DataSource = "明细" \'设置绑定表 Chart.SeriesList.Clear() \'清除图表原来的图系 Series = Chart.SeriesList.Add() \'给图表1增加一个图系 Chart.AxisX.DateType = True \'X轴是日期型 Series.Text = "当日盈亏" Series.X.DataField = "建仓日期" \'X轴绑定到产品列 Series.Y.DataField = "当日盈亏" \'Y轴绑定到数量列
Chart.SeriesList2.Clear() \'清除图表原来的图系 Series = Chart.SeriesList2.Add() \'给图表2增加一个图系 Series.Text = "累积盈亏" Chart.AxisX.DateType = True \'X轴是日期型 Series.X.DataField = "建仓日期" \'X轴绑定到产品列 Series.Y.DataField = "累积盈亏" \'Y轴绑定到数量列 Chart.LegendVisible = True \'显示图列 Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端) Chart.AxisY.Text = "当日盈亏" Chart.AxisY2.Text = "累积盈亏"
此主题相关图片如下:1.png

|