Foxtable(狐表) → 用户栏目 → 专家坐堂 → 图表排序


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

主题：图表排序
美女呀，离线，留言给我吧！
东方威思顿
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		图表排序  发帖心情 Post By：2019/4/24 13:48:00 [只看该作者]

老师，您好，如果在窗口中增加了一个图表，类型为条型，编码如下：如果想按照供应商计数的大小进行排序，并且只截取前8位，如何更改编码，谢谢！
Dim d As Date = Date.Today
Dim d1 As Date = new Date(2019, d.month,  1)
Dim d2 = d1.AddMonths(-1)
Dim filter As String = "日期 >= '" & Format(d2, "MM.dd") & "' and 日期 < '" & Format(d1, "MM.dd") & "'"
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim tbl As DataTable = DataTables("物料不合格明细") '定义一个变量tbl引用数据表
Dim lst As List(Of String) = tbl.GetValues("供应商",filter) '获得产品名称集合
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.HeaderText = d2.month & "月"
Chart.AxisX.Major = 2
Chart.AxisY.Major = 2
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加一个图系
Series.Length = lst.Count '设置图系的长度
For i As Integer = 0 To lst.Count - 1 '指定每个数据点的位置
    Series.X(i) = i '指定水平坐标
    Series.Y(i) = tbl.Compute("count(供应商)","[供应商] = '" & lst(i) & "'and " & filter) '指定垂直坐标
    Chart.AxisX.SetValueLabel(i, lst(i)) '指定字符表示
Next
Chart.SeriesList(0).fillColor = Color.Green
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2019/4/24 15:07:00 [只看该作者]

你这种，需要先分组生成数据，然后排序，然后再生成图表

 

http://www.foxtable.com/webhelp/scr/0158.htm

 
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/25 16:32:00 [只看该作者]

老师，您好，这是在窗口中增加Table的编码：如果想实现窗口打开时，table中的不合格批次列能够按照降序排列，如何增加编码
Dim d As Date = Date.Today
Dim d1 As Date = new Date(2019, d.month,  26)
Dim d2 As Date = new Date(2019, d.month, 25)
Dim d3 = d1.AddMonths(-2)
Dim d4 = d1.AddMonths(-1)
Dim g As New GroupTableBuilder("统计表1", DataTables("物料不合格明细"))
g.Filter = "日期 >= '" & Format(d3, "MM.dd") & "' and 日期 < '" & Format(d4, "MM.dd") & "'"
g.Groups.AddDef("供应商")
g.Totals.AddDef("供应商", AggregateEnum.Count, "不合格批次")
g.Build()
Tables("供应商不合格批次_Table1").DataSource = g.BuildDataSource()
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110642 积分：563118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/25 16:55:00 [只看该作者]

Tables("供应商不合格批次_Table1").DataSource = g.BuildDataSource()
Tables("供应商不合格批次_Table1").sort = “不合格批次 desc”
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/25 17:00:00 [只看该作者]

老师，您好，这个编码我之前增加过，又删除了，因为增加上这个编码之后数据表是按照降序排列的，但根据这个数据表生成的图表没有按照降序排列，如果想实现数据表与图表都按照降序排列，该如何实现：
以下为窗口的完整代码：
Dim d As Date = Date.Today
Dim d1 As Date = new Date(2019, d.month,  26)
Dim d2 As Date = new Date(2019, d.month, 25)
Dim d3 = d1.AddMonths(-2)
Dim d4 = d1.AddMonths(-1)
Dim g As New GroupTableBuilder("统计表1", DataTables("物料不合格明细"))
g.Filter = "日期 >= '" & Format(d3, "MM.dd") & "' and 日期 < '" & Format(d4, "MM.dd") & "'"
g.Groups.AddDef("供应商")
g.Totals.AddDef("供应商", AggregateEnum.Count, "不合格批次")
g.Build()
Tables("供应商不合格批次_Table1").DataSource = g.BuildDataSource()
Tables("供应商不合格批次_Table1").sort = "不合格批次 desc"
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.HeaderText = d4.month & "月"
Chart.AxisX.Major = 2
Chart.AxisY.Major = 2
Chart.DataSource = "供应商不合格批次_Table1" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Text = "不合格批次"
Series.X.DataField = "供应商" 'X轴绑定到产品列
Series.Y.DataField = "不合格批次" 'Y轴绑定到数量列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110642 积分：563118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/25 17:17:00 [只看该作者]

图表如果要排序，就不能使用绑定的方式，参考：http://www.foxtable.com/webhelp/scr/0967.htm，看方法一

 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/26 10:21:00 [只看该作者]

老师，您好，这段代码想实现的功能就是图表与数据表都能按照降序的顺序排序，但是代码老是提示错误：请帮忙指正，谢谢！
Dim d As Date = Date.Today
Dim d1 As Date = new Date(2019, d.month,  26)
Dim d2 As Date = new Date(2019, d.month, 25)
Dim d3 = d1.AddMonths(-2)
Dim d4 = d1.AddMonths(-1)
Dim g As New GroupTableBuilder("统计表1", DataTables("物料不合格明细"))
g.Filter = "日期 >= '" & Format(d3, "MM.dd") & "' and 日期 < '" & Format(d4, "MM.dd") & "'"
g.Groups.AddDef("供应商")
g.Totals.AddDef("供应商", AggregateEnum.Count, "不合格批次")
g.Build()
Tables("供应商不合格批次_Table1").DataSource = g.BuildDataSource()
Tables("供应商不合格批次_Table1").sort = "不合格批次 desc"
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("供应商不合格批次_Table1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.HeaderText = d4.month & "月"
Chart.AxisX.Major = 2
Chart.AxisY.Major = 2
Chart.SeriesList.Clear() '清除图表原来的图系
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
    Series.X(i) = t.Rows(i)("供应商") '指定水平坐标
    Series.Y(i) = t.Rows(i)("不合格批次") '指定垂直坐标
Next
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = - 45 'X轴标示逆时针旋转45度
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110642 积分：563118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 11:10:00 [只看该作者]

提示什么错误？

 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/26 11:20:00 [只看该作者]

.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,供应商不合格批次,AfterLoad
详细错误信息：
无效的数据类型
 回到顶部
帅哥，在线噢！
有点蓝
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110642 积分：563118 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2019/4/26 11:36:00 [只看该作者]

Series.Y(i) = val(t.Rows(i)("不合格批次"))

 回到顶部
总数 24 1 2 3 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06641 秒, 4 次数据查询