Dim i均值 As Integer = "X_中"
Dim i上限 As Integer = "X_上"
Dim i下限 As Integer ="X_下"
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Dim t As Table = Tables("SB主表.SB明细")
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = t.Rows.Count
For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
Series.X(i) = i+1 '指定水平坐标
Series.Y(i) = t.Rows(i)("X值") '指定垂直坐标
Next
Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl
'
'增加均值
'
Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl.LineStyle.Color = Color.Gold '线条颜色
tl.LineStyle.Thickness = 2 '线宽
tl.LineStyle.Pattern = 0 '直线样式 0-5
Dim zxb = New zxb柱状图标辅助线()
zxb.SetXY(New PointF(-0.5,Tables("SB主表").Current("X_中")),New PointF(25,Tables("SB主表").Current("X_中")))
zxb.SetText("均线")
tl.CustomTrendLine = zxb
'增加下限
'
''Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl.LineStyle.Color = Color.red
tl.LineStyle.Thickness = 2
tl.LineStyle.Pattern = 0
Dim zxb = New zxb柱状图标辅助线()
zxb.SetXY(New PointF(-0.5,Tables("SB主表").Current("X_下")),New PointF(25,Tables("SB主表").Current("X_下")))
'zxb.SetText("均线")
zxb.SetText("下限")
tl.CustomTrendLine = zxb
老师，我增加下限，加上红色，一直报“未知编译错误”，要如何才能实现“下限，上限”，谢谢
加好友 
发短信
Post By：2021/3/4 16:33:00 [只看该作者]
