图表数据点数 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图表数据点数

共有1180人关注过本帖树形打印复制链接主题：图表数据点数

fangshen

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：52 积分：475 威望：0 精华：0 注册：2019/12/27 14:58:00

图表数据点数 发帖心情

Post By：2024/9/11 13:35:00 [只看该作者]

点击按钮，使“图表”生成100个数据点（其它都正常，代码就不列出了），如下代码。

现在问题是生成的不是最新的数据，是最早的数据

也就是生成的是序号最小的100位，我希望生成序号最大的100位

谢谢

Series.Length = 100 '新增图系包括10个数据点

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/11 13:38:00 [只看该作者]

还是贴代码吧，代码才能说明问题。

fangshen

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：52 积分：475 威望：0 精华：0 注册：2019/12/27 14:58:00

Post By：2024/9/11 13:40:00 [只看该作者]

Series.Length = 100 '新增图系包括10个数据点

有点蓝

小大 4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/11 13:41:00 [只看该作者]

完整代码！

fangshen

小大 5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：幼狐帖子：52 积分：475 威望：0 精华：0 注册：2019/12/27 14:58:00

Post By：2024/9/11 14:02:00 [只看该作者]

Dim Chart As WinForm.Chart'定义一个图表变量
Dim Series As Winform.ChartSeries'定义一个图表变量
Chart=Forms("100批次").Controls("Chart2")
Chart.DataSource="制品管理"'定义一个变量引用表
Chart.DataFilter="品名序号="& tables("品名管理").current("品名序号")&"" '调用与父表"品名序号"相同的数据
Chart.AxisY.Min=0'最小值0
Chart.AxisY.Max=10'最小值10
Chart.SeriesList.Clear()'清除图表原有的图系
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.black'线条黑色
Series.MarkColor = Color.black'圆点黑色
Series.X.DataField="生产批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间"
Series.Length = 100

有点蓝

小大 6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

加好友

发短信

等级：超级版主帖子：110528 积分：562524 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2024/9/11 14:36:00 [只看该作者]

改为遍历

Dim Chart As WinForm.Chart'定义一个图表变量
Dim Series As Winform.ChartSeries'定义一个图表变量
Chart=Forms("100批次").Controls("Chart2")
Chart.AxisY.Min=0'最小值0
Chart.AxisY.Max=10'最小值10
Chart.SeriesList.Clear()'清除图表原有的图系
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.black'线条黑色
Series.MarkColor = Color.black'圆点黑色

Series.Length = 100

dim drs as list(of datarow) = datatables("制品管理").select("品名序号=" & tables("品名管理").current("品名序号")."排序序号列 desc")

For i As integer = 0 to drs.Count - 1 '指定每个数据点的位置

Series.X(i) = i '指定水平坐标
Series.Y(i) = drs(i)("凝胶化时间") '指定垂直坐标
Next

[此贴子已经被作者于2024/9/11 14:35:49编辑过]