- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 损益分歧点图表能用狐表做吗？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=171206)
-- 发布时间：2021/8/22 10:00:00
-- 损益分歧点图表能用狐表做吗？
我觉得做这个图挺难的，有没有建议？
-- 发布时间：2021/8/22 21:14:00
--
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目1.zip |
-- 发布时间：2021/8/23 13:36:00
-- 这个可以取表里面的字段值吗？
如果在按钮的click事件里面写，怎么取数据表里面的值？
每一个图系的坐标值取值，可以取数据字段表里面的值吗？
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart= e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.AxisY.Max = 400
Chart.AxisY.Major = 50
Chart.AxisX.Max = 400
Chart.AxisX.Major = 50
Chart.LegendVisible = True
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = "固定费线"
Series.Length = 2 \'新增图系包括2个数据点
Series.X(0) = 0 \'指定水平坐标
Series.Y(0) = 90
Series.X(1) = 180 \'指定水平坐标LineThickNess
Series.Y(1) = 90
Series.LineColor = color.green
Series.LineThickNess=2
Series.MarkSize=0
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = "变动费线"
Series.Length = 2 \'新增图系包括2个数据点
Series.X(0) = 0 \'指定水平坐标
Series.Y(0) = 0
Series.X(1) = 280 \'指定水平坐标LineThickNess
Series.Y(1) = 172
Series.LineColor = color.blue
Series.LineThickNess=2
Series.MarkSize=0
-- 发布时间：2021/8/23 13:36:00
--
比如：Series.X(0) = tables("xx表").current("xx列")
-- 发布时间：2021/8/23 14:24:00
-- 这个图表怎么按每一列数据生成图表呢？
这个图表怎么按每一行数据生成图表呢？
"变动费_变动费"，"总费用"，"固定费_固定费"都是列数据的表头
此主题相关图片如下：微信截图_20210823141715.png
Chart.AxisY.Max = Tables("眼见为实").current("总费用")
Chart.AxisY.Major = 50
Chart.AxisX.Max = Tables("眼见为实").current("总费用")
Chart.AxisX.Major = 50
Chart.LegendVisible = True
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = "固定费线"
Series.Length = 2 \'新增图系包括2个数据点
Series.X(0) = 0 \'指定水平坐标
Series.Y(0) = Tables("眼见为实").current("固定费_固定费")
Series.X(1) = Tables("眼见为实").current("销售额_销售额") \'指定水平坐标LineThickNess
Series.Y(1) = Tables("眼见为实").current("固定费_固定费")
Series.LineColor = color.green
Series.LineThickNess=2
Series.MarkSize=0
Series = Chart.SeriesList.Add() \'增加一个图系
Series.Text = "变动费线"
Series.Length = 2 \'新增图系包括2个数据点
Series.X(0) = 0 \'指定水平坐标
Series.Y(0) = 0
Series.X(1) = Tables("眼见为实").current("销售额_销售额") \'指定水平坐标LineThickNess
Series.Y(1) = Tables("眼见为实").current("变动费_变动费")
Series.LineColor = color.blue
Series.LineThickNess=2
Series.MarkSize=0
[此贴子已经被作者于2021/8/23 14:28:36编辑过]
-- 发布时间：2021/8/23 14:30:00
--
第一行
Tables("眼见为实").rows（0）("固定费_固定费")
第二行
Tables("眼见为实").rows（1）("固定费_固定费")
-- 发布时间：2021/8/23 14:51:00
-- 还是不是很懂这个怎么绑定到行
是不是要用position的方式来绑定行，显示？
此主题相关图片如下：微信截图_20210823144238.png
-- 发布时间：2021/8/23 15:17:00
--
请上传实例说明
-- 发布时间：2021/8/23 15:58:00
-- 我怎么调整这个Chart.AxisY.Major的值？
我发现是Chart.AxisY.Major这个值得设计造成的。
我怎么调整这个Chart.AxisY.Major的值？
因为如果销售额是100万，那么这个图就很难看了，Chart.AxisY.Major的值可以动态设计吗？
另外一个问题就是，我点击“下一条”的时候怎么自动生成图表？不需要点击“生成图表”按钮。
-- 发布时间：2021/8/23 17:01:00
--
Chart.AxisY.Major根据自己需要给值呀，和max的赋值用法一样
按钮1 调用按钮2参考：http://www.foxtable.com/webhelp/topics/2309.htm