Foxtable(狐表)用户栏目专家坐堂 → 图例显示错误(显示“series = 0”)


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

主题:图例显示错误(显示“series = 0”)

帅哥哟,离线,有人找我吗?
一笑
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
图例显示错误(显示“series = 0”)  发帖心情 Post By:2017/6/9 23:57:00 [显示全部帖子]

以下代码能出现图表,但有一个问题,图例显示错误(显示“series = 0”),代码错误出在哪儿?谢谢!
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "责任部门" 'X轴绑定到月份列
Series.Y.DataField = "积分" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.LegendVisible = True '显示图列

 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2017/6/12 13:54:00 [显示全部帖子]

我这儿显示错误,完整的代码,“积分”这一列是新增列,请看看是否有影响?谢谢
Dim g As New GroupTableBuilder("统计表1", DataTables("品质积分"))
g.Groups.AddDef("责任部门")
g.Totals.AddDef("加减分")
g.Decimals = 1
g.Build()

Tables("统计表1").DataTable.DataCols.Add("积分", Gettype(Integer))
For Each r As Row In Tables("统计表1").rows
r("积分") = r("加减分") + 100
Next

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "责任部门" 'X轴绑定到月份列
Series.Y.DataField = "积分" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.LegendVisible = True '显示图列

 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
上传附件  发帖心情 Post By:2017/6/18 17:29:00 [显示全部帖子]

1. 图例
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:图表.zip

显示“series = 0”请见附件;
2. 想按积分高低降序排列,统计表已排序,但图表未实现。

 回到顶部
帅哥哟,离线,有人找我吗?
一笑
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:808 积分:6213 威望:0 精华:0 注册:2014/3/23 23:02:00
  发帖心情 Post By:2017/6/19 10:03:00 [显示全部帖子]

图例可以显示了,请问如何让图表的柱状图按高度递减(统计表已排序,但图表未实现),谢谢!

 回到顶部