Foxtable(狐表) → 用户栏目 → 专家坐堂 → 曲线图调用父表数据


  共有730人关注过本帖树形打印复制链接

主题：曲线图调用父表数据
帅哥哟，离线，有人找我吗？
fangshen
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		曲线图调用父表数据  发帖心情 Post By：2025/4/11 14:10:00 [显示全部帖子]

"BMC品名管理"是父表，"临时表2"'是子表
下面代码是调用子表的"凝胶化时间最大值"，我希望调用父表的"凝胶化时间最大值"，如何修改代码？
谢谢

Dim Chart As WinForm.Chart'定义一个图表变量
Dim Series As Winform.ChartSeries'定义一个图表变量
Chart=Forms("100批次").Controls("Chart2")
Chart.DataSource="临时表2"'定义一个变量引用表
Chart.DataFilter="品名序号="& tables("BMC品名管理").current("品名序号")&"" '调用与父表"品名序号"相同的数据
Chart.AxisY.Min=Forms("100批次").Controls("TextBox2").Value '最小值
Chart.AxisY.Max=Forms("100批次").Controls("TextBox1").Value '最大值
Chart.SeriesList.Clear()'清除图表原有的图系
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.black'线条黑色
Series.MarkColor = Color.black'圆点黑色
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.red
Series.MarkColor = Color.red
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间最大值"      →能否调用父表的"凝胶化时间最大值"
 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/11 14:37:00 [显示全部帖子]

你好：这个我做了，因为数据太大，跑不动。一个画面曲线图有5组，每组曲线图有上万个数据

 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/11 14:41:00 [显示全部帖子]

我希望有些调用父表，有些调用子表，这样子表的数据可以变少，速度可以上去。谢谢
速度慢的原因我好像没有参数清楚
 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/11 15:51:00 [显示全部帖子]

你好：我已经只加载100行了，但是还是慢
我现在有父表《BMC品名管理》和两个子表《数据表》《临时表2》
我是先把《数据表》中100行，用按钮加载到《临时表2》，同时《临时表2》根据父表再自动填入上限，下限，平均，标准偏差，标准偏差3a，标准偏差负3a，标准偏差2a，标准偏差负2a，等等数据（这些数据都在父表中同时存在）这时的速度非常慢，非常耗时
其实曲线图呈现时速度可以。
所以我想，如果生产呈现曲线图的代码既可以调用子表，又可以调用父表，这样在生成《临时表2》时速度会快很多。

希望能够给与指导。

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/12 11:27:00 [显示全部帖子]

你好：容量太大，不好发，我周一重做一个再发过来？

 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/15 10:28:00 [显示全部帖子]

你好：速度的事我解决了，现在希望折线图中只有线条，不能有圆点
请问如何修改代码？谢谢

Dim Chart As WinForm.Chart'定义一个图表变量
Dim Series As Winform.ChartSeries'定义一个图表变量
Chart=Forms("100批次").Controls("Chart2")
Chart.DataSource="临时表2"'定义一个变量引用表
Chart.DataFilter="品名序号="& tables("BMC品名管理").current("品名序号")&"" '调用与父表"品名序号"相同的数据
Chart.AxisY.Min=Forms("100批次").Controls("TextBox2").Value '最小值
Chart.AxisY.Max=Forms("100批次").Controls("TextBox1").Value '最大值
Chart.SeriesList.Clear()'清除图表原有的图系
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.black'线条黑色
Series.MarkColor = Color.black'圆点黑色
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间"
Series=Chart.SeriesList.Add()'新增一个图系
Series.LineColor = Color.red
Series.MarkColor = Color.red
Series.X.DataField="批号"'X轴调用生产批号数据
Series.Y.DataField="凝胶化时间最大值" 
 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/15 12:25:00 [显示全部帖子]

谢谢，可以了

 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/17 14:43:00 [显示全部帖子]

你好：我现在发现，只加载数据，速度还是非常快的，但是加载后，点击按钮生成折线图后，在加载数据就非常慢，感觉生成折线图后系统就卡了。
逻辑：有两个表《数据表》《临时表2》
我是先把《数据表》中100行，用按钮加载到《临时表2》，同时《临时表2》根据父表再自动填入上限，下限，平均，标准偏差，标准偏差3a，标准偏差负3a，标准偏差2a，标准偏差负2a，等等数据（这些数据都在父表中同时存在）
《临时表》生成后，点击按钮生成折线图。
归纳：打开系统后，第一次生成《临时表2》非常快，如果不生成折线图前，反复加载《临时表2》速度都非常快，但是生成折线图后再去加载《临时表2》，系统就非常卡，速度就非常慢，但是在系统非常慢的时候，我可以正常使用电脑上的其它资料，比如收发邮件等。

希望能够给与指导。

谢谢
 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/17 16:26:00 [显示全部帖子]

实例已上传

 回到顶部
帅哥哟，离线，有人找我吗？
fangshen
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：95 积分：814 威望：0 精华：0 注册：2019/12/27 14:58:00 		  发帖心情 Post By：2025/4/17 16:29:00 [显示全部帖子]

不知道实例上传成功没有？

 回到顶部
总数 16 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06006 秒, 5 次数据查询