Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]图表标志线


  共有212人关注过本帖树形打印复制链接

主题：[求助]图表标志线
帅哥哟，离线，有人找我吗？
azlm100
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		[求助]图表标志线  发帖心情 Post By：2025/2/13 13:29:00 [显示全部帖子]

图片点击可在新窗口打开查看
单元格图表有这个标志线代码。想在chart图表中也添加这个标志线，不知道有没有代码可以实现？

图片点击可在新窗口打开查看
使用了堆积柱状图，然后再添加了一个线状图来当标志线。但是线状图的刻度除了问题，无法跟第一图系的对其。有办法可以取消右边刻度然后这个28能采用左边的刻度来显示？


附上代码

Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel
chart.AxisY.ClearValueLabel
Series = Chart.SeriesList.Add() '增加一个图系
Dim b As Integer = b
Series.Length = lst4.Count '图系的数据点数等于表的行数
Series.Text = "平日加班"
For k As Integer = 0 To lst4.Count - 1 '指定每个数据点的位置
    Series.X(k) = k '指定水平坐标
    Dim dttr As DataRow
    'dttr = dtt.Find("cus_xi = '" & lst3(k) & "' and bd >= '" & dt3 & "' And bd <= '" & dt4 & "'")
    dttr = dt.Find("empname = '" & lst4(k) & "' and bd = '" & dt3 & "'") '=====个人平均加班
    If dttr IsNot Nothing Then
        Series.Y(k) = CInt(Format(dttr("平时加班"), "0")) 
    Else
        Series.Y(k) = 0
    End If
    Chart.AxisX.SetValueLabel(k, lst4(k)) '指定字符表示
Next
Series.FillColor = Color.Green
series.MarkShape = MarkShapeEnum.None
Series.TooltipText = "{#YVAL}"
Series.DataLabelText = "{#YVAL}"
series.DataLabelForeColor = Color.blue
Series.DataLabelCompass = LabelCompassEnum.North
Series = Chart.SeriesList.Add() '给图表2增加一个图系
Series.Length = lst4.Count '图系的数据点数等于表的行数
Series.Text = "休出加班"
For ii As Integer = 0 To lst4.Count - 1 '指定每个数据点的位置
    Series.X(ii) = ii '指定水平坐标
    Dim dttr As DataRow
    dttr = dt.Find("empname = '" & lst4(ii) & "' and bd = '" & dt3 & "'") '=====个人平均加班
    If dttr IsNot Nothing Then
        Series.Y(ii) = CInt(Format(dttr("休出加班") , "0"))
    Else
        Series.Y(ii) = 0
    End If
    Chart.AxisX.SetValueLabel(ii, lst4(ii)) '指定字符表示
Next
Series.FillColor = Color.LightBlue
Chart.Stacked = True
Series.TooltipText = "{#YVAL}"
Series.DataLabelText = "{#YVAL}"
Series.DataLabelCompass = LabelCompassEnum.North
Dim mm As Integer = Chart.AxisY.Max
Chart.SeriesList2.Clear() '清除图表原来的图系
Series = Chart.SeriesList2.Add() '给图表2增加一个图系
Series.Length = lst4.Count '图系的数据点数等于表的行数
Series.Text = "加班标志线"
For iii As Integer = 0 To lst4.Count - 1 '指定每个数据点的位置
        Series.X(iii) = iii '指定水平坐标
        Series.Y(iii) = 28
Next

Chart.AxisY.MinorTick = False 'Y轴不显示副刻度
Chart.AxisX.AnnoRotation = - 45
Chart.LegendVisible = True '显示图列
Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)
Chart.AxisX.AnnoWithLabels = True '启用字符标示


这个28是不固定

[此贴子已经被作者于2025/2/13 13:32:49编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
azlm100
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		  发帖心情 Post By：2025/2/13 13:54:00 [显示全部帖子]

图片点击可在新窗口打开查看
下载的文件打开就提示这个啊

是我电脑问题吗

[此贴子已经被作者于2025/2/13 14:41:22编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
azlm100
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		  发帖心情 Post By：2025/2/14 13:31:00 [显示全部帖子]

图片点击可在新窗口打开查看


我按照示例里面修改，怎么不出线的

Chart = e.Form.Controls("Chart2") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '设置图表类型
Chart.ChartType2 = ChartTypeEnum.XYPlot '图表2类型该为线形t
Chart.SeriesList.Clear() '清除图表原来的图系
chart.AxisX.ClearValueLabel
chart.AxisY.ClearValueLabel
Series = Chart.SeriesList.Add() '增加一个图系
Dim b As Integer = b
Series.Length = lst4.Count '图系的数据点数等于表的行数
Series.Text = "平日加班"
For k As Integer = 0 To lst4.Count - 1 '指定每个数据点的位置
    Series.X(k) = k '指定水平坐标
    Dim dttr As DataRow
    dttr = dtt.Find("empname = '" & lst4(k) & "' and bd = '" & dt3 & "'") '=====个人平均加班
    If dttr IsNot Nothing Then
        Series.Y(k) = CInt(Format(dttr("平时加班"), "0")) 
    Else
        Series.Y(k) = 0
    End If
    Chart.AxisX.SetValueLabel(k, lst4(k)) '指定字符表示
Next
Series.FillColor = Color.Green
series.MarkShape = MarkShapeEnum.None
Series.TooltipText = "{#YVAL}"
Series.DataLabelText = "{#YVAL}"
series.DataLabelForeColor = Color.blue
Series.DataLabelCompass = LabelCompassEnum.North
Series = Chart.SeriesList.Add() '给图表2增加一个图系
Series.Length = lst4.Count '图系的数据点数等于表的行数
Series.Text = "休出加班"
For ii As Integer = 0 To lst4.Count - 1 '指定每个数据点的位置
    Series.X(ii) = ii '指定水平坐标
    Dim dttr As DataRow
    dttr = dtt.Find("empname = '" & lst4(ii) & "' and bd = '" & dt3 & "'") '=====个人平均加班
    If dttr IsNot Nothing Then
        Series.Y(ii) = CInt(Format(dttr("休出加班") , "0"))
    Else
        Series.Y(ii) = 0
    End If
    Chart.AxisX.SetValueLabel(ii, lst4(ii)) '指定字符表示
Next
Series.FillColor = Color.LightBlue
Chart.Stacked = True
Series.TooltipText = "{#YVAL}"
Series.DataLabelText = "{#YVAL}"
Series.DataLabelCompass = LabelCompassEnum.North
Chart.AxisY.MinorTick = False 'Y轴不显示副刻度
Chart.AxisX.AnnoRotation = - 45
Chart.LegendVisible = True '显示图列
Chart.LegendCompass = CompassEnum.South '图列显示在南方(底端)
Chart.AxisX.AnnoWithLabels = True '启用字符标示

Dim C1Cha As C1.Win.C1Chart.C1Chart = Chart.BaseControl
C1Cha.ChartGroups(0).ChartData.TrendsList.clear
Dim tl As C1.Win.C1Chart.TrendLine = C1Cha.ChartGroups(0).ChartData.TrendsList.AddNewTrendLine()
tl.LineStyle.Color = Color.red'线条颜色 
tl.LineStyle.Thickness = 2 '线宽 
tl.LineStyle.Pattern = 0 '直线样式 0-5  
Dim zxb = New TbszLine()
zxb.SetXY(New PointF( - 0.5, 28), New PointF(Series.Length, 28))
zxb.SetText("均线")
tl.CustomTrendLine = zxb
 回到顶部
帅哥哟，离线，有人找我吗？
azlm100
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		  发帖心情 Post By：2025/2/14 14:16:00 [显示全部帖子]

老师我做了一个示例，也是不出辅助线的。

帮忙看下。难道是因为堆积柱状图原因吗

还是说开发版问题？

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:辅助线测试.foxdb
 回到顶部
帅哥哟，离线，有人找我吗？
azlm100
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		  发帖心情 Post By：2025/2/14 15:17:00 [显示全部帖子]

图片点击可在新窗口打开查看
这个第二图系我试过一次。也是这个刻度对不齐问题。第一图系的刻度是可变可增长的。到了月底可能就去到50了。所以我尝试不固定刻度。
但是这个第二图系的位置一直对不齐。
老师发的固定0-40我生成的也对不齐。
 回到顶部
帅哥哟，离线，有人找我吗？
azlm100
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：婴狐 帖子：35 积分：401 威望：0 精华：0 注册：2019/8/7 15:51:00 		  发帖心情 Post By：2025/2/14 15:57:00 [显示全部帖子]

解决了。在第一图系里增加一个整数型来获取最大的那个值。然后
Chart.AxisY.Min = 0 '指定Y轴的最小值
Chart.AxisY.Max = d
Chart.AxisY2.Min = 0 '指定Y轴的最小值
Chart.AxisY2.Max = d

让两个图系的Y一样就可以了。

谢谢老师今天的解答。
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.10156 秒, 6 次数据查询