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


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

主题：图表排序
美女呀，离线，留言给我吧！
东方威思顿
 小大  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


加好友 发短信
等级：幼狐 帖子：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()
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | 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度
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | 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度
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | 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
详细错误信息：
无效的数据类型
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/26 11:52:00 [显示全部帖子]

仍然提示相同错误问题

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


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/26 13:43:00 [显示全部帖子]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:管理项目1_201904261342.zip
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/29 16:41:00 [显示全部帖子]

老师，您好，图表排序显示的话我只想显示排名前7位的图表数值，怎么更改编码？

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


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/29 17:23:00 [显示全部帖子]

老师，这个标注的地方间隔可以调整吗？不想这样紧靠Y轴，想留出一点空隙

图片点击可在新窗口打开查看此主题相关图片如下：5858ad7e-98a5-4365-8de9-d307e4056b94.png
图片点击可在新窗口打开查看
 回到顶部
美女呀，离线，留言给我吧！
东方威思顿
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：幼狐 帖子：50 积分：445 威望：0 精华：0 注册：2018/8/27 17:33:00 		  发帖心情 Post By：2019/4/30 8:33:00 [显示全部帖子]

老师，我一个窗口中增加了两个图标类型，为什么增加上代码之后，饼型图标的占比都编程了0.00%?是代码有重复吗？

图片点击可在新窗口打开查看此主题相关图片如下：f1a746f9-99ad-489d-8ce5-453f063ee5a6.png
图片点击可在新窗口打开查看
完整代码为：Dim d As Date = Date.Today
Dim d1 As Date = new Date(d.Year, 01, 01)
Dim d2 As Date = new Date(d.year, 01, 31)
Dim g As New GroupTableBuilder("统计表1", DataTables("物料不合格明细"))
g.Filter = "日期 >= '" & Format(d1, "MM.dd") & "' and 日期 < '" & Format(d2, "MM.dd") & "'"
g.Groups.AddDef("供应商")
g.Totals.AddDef("供应商", AggregateEnum.Count, "不合格批次")
Tables("不合格批次(1月)_Table1").DataSource = g.BuildDataSource()
Tables("不合格批次(1月)_Table1").sort = "不合格批次 desc"
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("不合格批次(1月)_Table1") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型该为Bar(条形)
Chart.HeaderText = d1.month & "月"
Chart.AxisX.Major = 2
Chart.AxisY.Major = 2
Chart.AxisY.Min = 0
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.AxisX.ClearValueLabel
Series = Chart.SeriesList.Add() '增加第一个图系
Series.Length = t.Rows.Count '图系的数据点数等于表的行数
Dim count = iif(t.Rows.count > 7, 7, t.Rows.count)
Series.X(0) = 0 '指定水平坐标
Series.Y(0) = 0
Chart.AxisX.SetValueLabel(0, "")
For i As Integer = 0 To count- 1 '指定每个数据点的位置
    Series.X(i+1) = i+1 '指定水平坐标
    Series.Y(i+1) = t.Rows(i)("不合格批次") '指定垂直坐标
    Chart.AxisX.SetValueLabel(i+1, t.Rows(i)("供应商"))
Next
Chart.SeriesList(0).fillcolor = Color.Green
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)
Series.DataLabelText = "{#YVAL}"
Chart.AxisX.AnnoRotation = -45 'X轴标示逆时针旋转45度
Dim g1 As New GroupTableBuilder("统计表2", DataTables("物料不合格明细"))
g1.Filter = "日期 >= '" & Format(d1, "MM.dd") & "' and 日期 < '" & Format(d2, "MM.dd") & "'"
g1.Groups.AddDef("缺陷类别")
g1.Totals.AddDef("缺陷类别", AggregateEnum.Count, "不良批次")
Tables("不合格批次(1月)_Table2").DataSource = g1.BuildDataSource()
Tables("不合格批次(1月)_Table2").sort = "不良批次 desc"
Dim filter1 As String = "日期 >= '" & Format(d1, "MM.dd") & "' and 日期 < '" & Format(d2, "MM.dd") & "'"
Dim Chart1 As WinForm.Chart = e.Form.Controls("Chart2")
Dim Series1 As WinForm.ChartSeries '定义一个图系变量
Dim tbl1 As DataTable = DataTables("物料不合格明细") '定义一个变量tbl引用数据表
Dim lst1 As List(Of String) = tbl1.GetValues("缺陷类别", filter1) '获得产品名称集合
Dim sm1 As Integer = tbl1.Compute("count(缺陷类别)", filter1) '计算总数量
Chart1.VisualEffect = True
Chart1.ChartType = ChartTypeEnum.pie '设置图表类型
Chart1.HeaderText = d1.month & "月"
For Each gys As String In lst1
    Series1 = Chart1.SeriesList.Add() '增加一个图系
    Series1.Length = 1 '一个系列只能包括一个值
    Series1.Text = gys
    Series1.Y(0) = tbl1.Compute("count(缺陷类别)", "缺陷类别='" & gys & "' and " & filter1)
    Series1.DataLabelText = Math.Round(Series.Y(0)*100/sm1,2) & "%" '计算百分比
Next
Chart1.LegendVisible = True '显示图列
Chart1.LegendCompass= CompassEnum.East '图列显示在东方(右方)
Dim tr As WinForm.TreeView
tr = Forms("不合格批次(1月)").Controls("TreeView1")
tr.Nodes(0).ExpandAll()
tr.Nodes(0).Nodes(0).Nodes(0).Ic
 回到顶部
总数 13 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.06885 秒, 6 次数据查询