- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 数据标示不全问题 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=122790)
-- 发布时间：2018/8/2 11:05:00
-- 数据标示不全问题
条形图上数据标示不全，只显示了一部分，请问怎么编程？谢谢
此主题相关图片如下：数据标示(1).jpg
-- 发布时间：2018/8/2 11:08:00
--
上传具体的实例测试。
-- 发布时间：2018/8/2 11:18:00
--
Series.DataLabelText = "{#YVAL}" 为什么只标示了一个数据呢？
此主题相关图片如下：数据标示(1).jpg
-- 发布时间：2018/8/2 11:35:00
--
1、贴出你写的全部代码；
2、或者上传具体的foxtable项目测试。
-- 发布时间：2018/8/2 11:39:00
--
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "项目管理公司项目成本报表"\'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text ="目标成本_计划总成本合计"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField ="目标成本_计划总成本合计"\'Y轴绑定到数量列
Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "开工至今累计_实际成本合计"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField = "开工至今累计_实际成本合计"\'Y轴绑定到数量列
Chart.AxisX.AnnoRotation = 30 \'X轴标示逆时针旋转45度
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}"
-- 发布时间：2018/8/2 11:40:00
--
Dim Chart As WinForm.Chart \'定义一个图表变量
Dim Series As WinForm.ChartSeries \'定义一个图系变量
Chart = e.Form.Controls("Chart1") \' 引用窗口中的图表
Chart.VisualEffect = True \'加上这一行,让你的图表更漂亮
Chart.ChartType = ChartTypeEnum.Bar \'图表类型该为Bar(条形)
Chart.DataSource = "项目管理公司项目成本报表"\'设置绑定表
Chart.SeriesList.Clear() \'清除图表原来的图系
Series = Chart.SeriesList.Add() \'增加第一个图系
Series.Text ="目标成本_计划总成本合计"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField ="目标成本_计划总成本合计"\'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Series = Chart.SeriesList.Add() \'增加第二个图系
Series.Text = "开工至今累计_实际成本合计"
Series.X.DataField = "工程名称简称"\'X轴绑定到产品列
Series.Y.DataField = "开工至今累计_实际成本合计"\'Y轴绑定到数量列
Chart.AxisX.AnnoRotation = 30 \'X轴标示逆时针旋转45度
Chart.LegendVisible = True \'显示图列
Chart.LegendCompass= CompassEnum.South \'图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}"