Foxtable(狐表)用户栏目专家坐堂 → 怎么才能将数据都显示在一个柱形体上面呢


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

主题:怎么才能将数据都显示在一个柱形体上面呢

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
怎么才能将数据都显示在一个柱形体上面呢  发帖心情 Post By:2013/3/22 12:46:00 [显示全部帖子]

高手好 我现在做的图表最高分最低分都不在一块 看起来特别的麻烦 现在其实就是四组数据  怎么才能让一组的数据最低分、最高分、平均分都显示在一个柱形上呢 就像说明书里面的那样重叠在一起呢

这是我的程序 求高手指点

'------------------------------------生成统计表------------------------
Dim g As New GroupTableBuilder("统计表2", DataTables("学员基础信息"))
g.Groups.AddDef("培训_产品组1", "产品组")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Max, "PretestMAX")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Average, "PreAVE")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Min, "PretestMIN")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Max, "PostMAX")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Average, "PostAVE")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Min, "PostMIN")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Max, "RolePlayMAX")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Average, "RolePlayAVE")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Min, "RolePlayMIN")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Max, "PPTMAX")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Average, "PPTAVE")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Min, "PPTMIN")

g.filter = Filter   '----筛选----
g.Build()
'-------------------------------------生成图表---------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表2") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表2" '设置绑定表
Chart.AxisY.Major = 10
Chart.AxisY.Min = 0 '指定Y轴的最小值

Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "产品组" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.X.DataField = "产品组" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
        Series.DataLabelText = "{#YVAL}"
    End If
Next
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮

Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

 

 


此主题相关图片如下:预期.png
按此在新窗口浏览图片

此主题相关图片如下:现在.png
按此在新窗口浏览图片

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
  发帖心情 Post By:2013/3/22 15:20:00 [显示全部帖子]

chart.Stacked = true这句话我加上后结果都叠加到一个柱形上了,没有让同一成绩的最高分、平均分、最低分显示在同一个柱形上而是 所有的都在上面了

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
  发帖心情 Post By:2013/3/22 16:51:00 [显示全部帖子]

 嘿嘿 整个的看我都感觉麻烦了  嘿嘿  这次明白俺的意思了吗  万分感谢呢!!!!

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:销售培训.table


图片点击可在新窗口打开查看此主题相关图片如下:实现的目标.png
图片点击可在新窗口打开查看

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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
回复:(狐狸爸爸)抱歉,我也不会。  发帖心情 Post By:2013/3/25 9:18:00 [显示全部帖子]

 哦哦  没关系的  但还是要谢谢你!


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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
  发帖心情 Post By:2013/3/25 14:08:00 [显示全部帖子]

 大侠我复制粘贴过去 报错了  怎么回事呢  万分感谢呀


图片点击可在新窗口打开查看此主题相关图片如下:捕获.png
图片点击可在新窗口打开查看
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:销售培训.table


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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
回复:(don)这样? '-----------------------...  发帖心情 Post By:2013/3/25 15:20:00 [显示全部帖子]

   大侠  快来看看救救我吧 图片点击可在新窗口打开查看


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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
回复:(don)这样? '-----------------------...  发帖心情 Post By:2013/3/25 16:39:00 [显示全部帖子]

大侠好厉害哇!!!!真的太感谢你了图片点击可在新窗口打开查看

 

 

大侠在看看这个呗图片点击可在新窗口打开查看

http://www.foxtable.com/bbs/dispbbs.asp?BoardID=2&replyID=192207&ID=30180&skin=1


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


加好友 发短信
等级:婴狐 帖子:94 积分:723 威望:0 精华:0 注册:2013/2/27 16:58:00
回复:(don)这样? '-----------------------...  发帖心情 Post By:2013/3/25 16:58:00 [显示全部帖子]

大侠 要是在里面加上平均数怎么加呢 图片点击可在新窗口打开查看

dtb.AddDef("AVE", Gettype(Integer))

r("AVE") = dt.Compute("Ave(" & flt1 & ")",Filter)

在VB里没有平均数这个函数吗


 回到顶部