共5 条记录, 每页显示 10 条, 页签:
[1]
[浏览完整版]
标题：用列名作为X轴的图表如何绘制
1楼
13559187297 发表于：2025/4/8 8:55:00请问老师，想要生成如下形式的图表，该怎么写代码？或者帮助文件里面哪里有类似的可以参考？
2楼
有点蓝 发表于：2025/4/8 9:13:00遍历列生成就行了
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim r as row = Tables("统计表1").current '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 30 '需要显示的列的个数
For i As integer = 1 to 30 '指定每个数据点的位置
Series.X(i) = (i-1) '指定水平坐标
Series.Y(i) = r("4月" & i & "日") '指定垂直坐标
Next
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim r as row = Tables("统计表1").current '定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = 30 '需要显示的列的个数
For i As integer = 1 to 30 '指定每个数据点的位置
Series.X(i) = (i-1) '指定水平坐标
Series.Y(i) = r("4月" & i & "日") '指定垂直坐标
Next
3楼
13559187297 发表于：2025/4/8 9:41:00感谢老师！
还有一个问题“日可用时间”190的那条标准线要怎么添加？
4楼
有点蓝 发表于：2025/4/8 9:52:00参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=194981&skin=0
5楼
13559187297 发表于：2025/4/8 12:00:00现在会了，非常感谢老师。
共5 条记录, 每页显示 10 条, 页签:
[1]