- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何以行作为Y轴绘制折线图 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=185446)
-- 发布时间：2023/2/23 15:32:00
-- [求助]如何以行作为Y轴绘制折线图
表中有24列命名为24-1
如何已24至1作为X轴，每行的24个数作为Y
此主题相关图片如下：企业微信截图_16771393238201.png
绘制折线图，选择对应行画面自动生成图标
此主题相关图片如下：企业微信截图_16771393238201.png绘制折线图，选择对应行画面自动生成图标
[此贴子已经被作者于2023/2/23 16:02:44编辑过]
-- 发布时间：2023/2/23 15:44:00
--
请上传实例说明。然后手绘一下结果看看
-- 发布时间：2023/2/23 16:27:00
-- [求助]如何以行作为Y轴绘制折线图
横向选择数据，而不是选择列作为数据源，类似绘制单元格的样式
-- 发布时间：2023/2/23 16:45:00
--
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Dim t As Table = Tables("统计表1") \'定义一个变量t引用数据表
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Length = t.Cols.Count \'设置图系的长度
For i As integer = 0 to t.Cols.Count - 1 \'指定每个数据点的位置
Series.X(i) = i \'指定水平坐标
Series.Y(i) = t.current(t.Cols(i).name) \'指定垂直坐标
Chart.AxisX.SetValueLabel(i, t.Cols(i).name) \'指定字符表示
Next
Chart.AxisX.AnnoWithLabels = True \'启用字符标示