以文本方式查看主题

-  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)

--  作者:wukangppbb
--  发布时间:2021/8/22 10:00:00
--  损益分歧点图表能用狐表做吗?
我觉得做这个图挺难的,有没有建议?
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:损益分歧点图表v1.xlsx



--  作者:有点蓝
--  发布时间:2021/8/22 21:14:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1.zip


--  作者:wukangppbb
--  发布时间: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列")
--  作者:wukangppbb
--  发布时间: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)("固定费_固定费")

--  作者:wukangppbb
--  发布时间:2021/8/23 14:51:00
--  还是不是很懂这个怎么绑定到行
是不是要用position的方式来绑定行,显示?


图片点击可在新窗口打开查看此主题相关图片如下:微信截图_20210823144238.png
图片点击可在新窗口打开查看


--  作者:有点蓝
--  发布时间:2021/8/23 15:17:00
--  
请上传实例说明
--  作者:wukangppbb
--  发布时间:2021/8/23 15:58:00
--  我怎么调整这个Chart.AxisY.Major的值?
我发现是Chart.AxisY.Major这个值得设计造成的。
我怎么调整这个Chart.AxisY.Major的值?

因为如果销售额是100万,那么这个图就很难看了,Chart.AxisY.Major的值可以动态设计吗?

另外一个问题就是,我点击“下一条”的时候怎么自动生成图表?不需要点击“生成图表”按钮。
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:bep图表.table



--  作者:有点蓝
--  发布时间:2021/8/23 17:01:00
--  
Chart.AxisY.Major根据自己需要给值呀,和max的赋值用法一样