Foxtable(狐表) → 用户栏目 → 专家坐堂 → 损益分歧点图表能用狐表做吗？


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

主题：损益分歧点图表能用狐表做吗？
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		损益分歧点图表能用狐表做吗？  发帖心情 Post By：2021/8/22 10:00:00 [显示全部帖子]

我觉得做这个图挺难的，有没有建议？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:损益分歧点图表v1.xlsx
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		这个可以取表里面的字段值吗？  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		这个图表怎么按每一列数据生成图表呢？  发帖心情 Post By：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编辑过]
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		还是不是很懂这个怎么绑定到行  发帖心情 Post By：2021/8/23 14:51:00 [显示全部帖子]

是不是要用position的方式来绑定行，显示？


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210823144238.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		我怎么调整这个Chart.AxisY.Major的值？  发帖心情 Post By：2021/8/23 15:58:00 [显示全部帖子]

我发现是Chart.AxisY.Major这个值得设计造成的。
我怎么调整这个Chart.AxisY.Major的值？

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

另外一个问题就是，我点击“下一条”的时候怎么自动生成图表？不需要点击“生成图表”按钮。
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:bep图表.table
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		我想增加一个点的图系，这样写对不对？  发帖心情 Post By：2021/8/23 17:25:00 [显示全部帖子]

我想增加一个点的图系，这样写对不对？

运行以后，这个点出不来，是不是大小有问题？


Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "盈亏平衡点"
Series.Length = 2 '新增图系包括2个数据点 
Series.X(0) = Tables("眼见为实").current("BEP销售额")'指定水平坐标LineThickNess
Series.Y(0) = Tables("眼见为实").current("BEP销售额")'
Series.Y1(1)=10
Series.MarkShape= MarkShapeEnum.Dot 
Series.MarkColor= color.Indigo
Series.MarkSize=0
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		比例失调的问题  发帖心情 Post By：2021/8/26 22:27:00 [显示全部帖子]

当我点击回第一条的时候，正常的比例就会失调，出现下面的图


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210826221005.png
图片点击可在新窗口打开查看
比例代码如下：
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

Chart.AxisY.Max = Tables("眼见为实").current("总费用")
Chart.AxisY.Major = Tables("眼见为实").current("总费用")/10
Chart.AxisX.Max = Tables("眼见为实").current("销售额_销售额")
Chart.AxisX.Major = Tables("眼见为实").current("销售额_销售额")/10
Chart.LegendVisible = True
Chart.SeriesList.Clear() '清除图表原来的图系



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

正常的图是下面这样


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210826222658.png
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		显示的值怎么调整小数点位的？  发帖心情 Post By：2021/8/27 0:07:00 [显示全部帖子]


显示的值怎么调整小数点位的？

Series.DataLabelText = "{#YVAL}"
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		x轴与Y轴怎么显示千分位的？  发帖心情 Post By：2021/8/27 13:52:00 [显示全部帖子]

x轴与Y轴怎么显示千分位的？

Chart.AxisX.DataLabelText = "{#XVAL:#,###.00}"这样好像不行。。。
 回到顶部
帅哥哟，离线，有人找我吗？
wukangppbb
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：小狐 帖子：373 积分：2682 威望：0 精华：0 注册：2020/7/24 10:30:00 		不知道为啥这么报错。  发帖心情 Post By：2021/8/27 14:25:00 [显示全部帖子]

说这个不属于。。。


图片点击可在新窗口打开查看此主题相关图片如下：微信截图_20210827141503.png
图片点击可在新窗口打开查看
 回到顶部
总数 15 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.07031 秒, 7 次数据查询