- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 用列名作为X轴的图表如何绘制 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=196199)
-- 发布时间：2025/4/8 8:55:00
-- 用列名作为X轴的图表如何绘制
请问老师，想要生成如下形式的图表，该怎么写代码？或者帮助文件里面哪里有类似的可以参考？
-- 发布时间：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
-- 发布时间：2025/4/8 9:41:00
--
感谢老师！
还有一个问题“日可用时间”190的那条标准线要怎么添加？
-- 发布时间：2025/4/8 9:52:00
--
参考：http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=194981&skin=0
-- 发布时间：2025/4/8 12:00:00
--
现在会了，非常感谢老师。