以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- 图表数据点数 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=193407) |
-- 作者:fangshen -- 发布时间:2024/9/11 13:35:00 -- 图表数据点数 点击按钮,使“图表”生成100个数据点(其它都正常,代码就不列出了),如下代码。 现在问题是生成的不是最新的数据,是最早的数据 也就是生成的是序号最小的100位,我希望生成序号最大的100位 谢谢 Series.Length = 100 \'新增图系包括10个数据点
|
-- 作者:有点蓝 -- 发布时间:2024/9/11 13:38:00 -- 还是贴代码吧,代码才能说明问题。 |
-- 作者:fangshen -- 发布时间:2024/9/11 13:40:00 -- Series.Length = 100 \'新增图系包括10个数据点 |
-- 作者:有点蓝 -- 发布时间:2024/9/11 13:41:00 -- 完整代码! |
-- 作者:fangshen -- 发布时间: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 |
-- 作者:有点蓝 -- 发布时间: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编辑过]
|
-- 作者:fangshen -- 发布时间:2024/9/11 15:01:00 -- 提示: 编译错误:应为 标识符
错误代码: Dim drs As List(of DataRow) = DataTables("制品管理").Select("品名序号=" & Tables("品名管理").current("品名序号")."排序序号列 desc") |
-- 作者:有点蓝 -- 发布时间:2024/9/11 15:07:00 -- Dim drs As List(Of DataRow) = DataTables("制品管理").Select("品名序号=" & Tables("品名管理").current("品名序号"), "排序序号列 desc") |
-- 作者:fangshen -- 发布时间:2024/9/11 15:22:00 -- 提示: 指定的参数已经超出有效的范围 然后把Series.Length = 100改成1000,就可以了。 但是还没有实现我的愿望,我的愿望是:只显示100个数据 |
-- 作者:有点蓝 -- 发布时间:2024/9/11 15:53:00 -- For i As integer = 0 to drs.Count - 1 改为 For i As integer = 0 to 99
|