Foxtable(狐表)用户栏目专家坐堂 → 柱状图从两边开始生成


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

主题:柱状图从两边开始生成

美女呀,离线,留言给我吧!
susu312
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
柱状图从两边开始生成  发帖心情 Post By:2018/9/14 22:19:00 [只看该作者]


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

 

老师,这个柱状图为啥是生成的是在最左边和最右边 ,难道不是从坐往右开始生成么


 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/14 22:32:00 [只看该作者]

具体代码或者实例?

 回到顶部
美女呀,离线,留言给我吧!
susu312
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/14 22:39:00 [只看该作者]

以下是引用有点蓝在2018/9/14 22:32:00的发言:
具体代码或者实例?

 

这是代码:

''图表1
'生成各单位人数临时表
Dim b As New GroupTableBuilder("统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
t=b.Build() '生成统计表

Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表1" '设置绑定表
Chart.AxisY.Min = 0 '指定Y轴的最小值
''Chart.AxisY.Max =10 '指定Y轴的最大值
'Chart.AxisY.Major = 1 '主刻度间隔值为5000
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.X.DataField = "单位" 'X轴绑定到产品列
Series.Y.DataField = "人数" 'Y轴绑定到数量列
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = - 20 'X轴标示逆时针旋转45度
Chart.BarClusterWidth =  5
Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.HeaderText=_UserOrgan & "辖区各单位离退休干部总人数统计图"
Chart.HeaderFont=fnt


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/14 22:44:00 [只看该作者]

t=b.Build(true)

命令窗口执行,截图看生成的统计表数据是怎么样的
Dim b As New GroupTableBuilder("统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
b.Build() 

 回到顶部
美女呀,离线,留言给我吧!
susu312
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/14 22:51:00 [只看该作者]

以下是引用有点蓝在2018/9/14 22:44:00的发言:
t=b.Build(true)

命令窗口执行,截图看生成的统计表数据是怎么样的
Dim b As New GroupTableBuilder("统计表1",DataTables("person"))
Dim t As DataTable
b.Groups.AddDef("organName","单位")
b.Totals.AddDef("organName",AggregateEnum.Count,"人数")
'b1.FromServer = True
b.Build() 


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

 回到顶部
帅哥,在线噢!
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/14 23:16:00 [只看该作者]

去掉:Chart.BarClusterWidth =  5

这种问题减少代码测试看效果就知道了。

 回到顶部
美女呀,离线,留言给我吧!
susu312
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/14 23:24:00 [只看该作者]

以下是引用有点蓝在2018/9/14 23:16:00的发言:
去掉:Chart.BarClusterWidth =  5

这种问题减少代码测试看效果就知道了。

 

谢谢谢谢老师教导,那老师去掉就这么宽,比如只有一家单位,那太宽了


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


 回到顶部
帅哥,在线噢!
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:106732 积分:542855 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2018/9/15 8:34:00 [只看该作者]

不要绑定,自己定义Y轴的宽度。这种自己测试可以看效果的。可以面向论坛编程,但是不要养成面向依赖编程

 回到顶部
美女呀,离线,留言给我吧!
susu312
  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/15 8:38:00 [只看该作者]

以下是引用有点蓝在2018/9/15 8:34:00的发言:
不要绑定,自己定义Y轴的宽度。这种自己测试可以看效果的。可以面向论坛编程,但是不要养成面向依赖编程

谢谢老师教导,我自己想想原理和解决办法,实在不会了再找老师


 回到顶部
美女呀,离线,留言给我吧!
susu312
  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:997 积分:6752 威望:0 精华:0 注册:2018/6/8 16:17:00
  发帖心情 Post By:2018/9/15 10:40:00 [只看该作者]

以下是引用有点蓝在2018/9/15 8:34:00的发言:
不要绑定,自己定义Y轴的宽度。这种自己测试可以看效果的。可以面向论坛编程,但是不要养成面向依赖编程

老师,我遇到一个问题,

 


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

 


 


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

 

您看,单位的顺序应该是我给排列好的,但是在图标上是按照数字的从小到大排的,这个设置在哪里呀?


 回到顶部
总数 12 1 2 下一页