专家坐堂-图表排序Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  图表排序  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=133972)

--  作者：东方威思顿
--  发布时间：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度

--  作者：有点甜
--  发布时间：2019/4/24 15:07:00
--

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

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

--  作者：东方威思顿
--  发布时间：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()

--  作者：有点蓝
--  发布时间：2019/4/25 16:55:00
--
Tables("供应商不合格批次_Table1").DataSource = g.BuildDataSource()
Tables("供应商不合格批次_Table1").sort = “不合格批次 desc”

--  作者：东方威思顿
--  发布时间：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度

--  作者：有点蓝
--  发布时间：2019/4/25 17:17:00
--
图表如果要排序，就不能使用绑定的方式，参考：http://www.foxtable.com/webhelp/scr/0967.htm，看方法一

--  作者：东方威思顿
--  发布时间：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度

--  作者：有点蓝
--  发布时间：2019/4/26 11:10:00
--
提示什么错误？

--  作者：东方威思顿
--  发布时间：2019/4/26 11:20:00
--

.NET Framework 版本：2.0.50727.8800
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,供应商不合格批次,AfterLoad
详细错误信息：
无效的数据类型

--  作者：有点蓝
--  发布时间：2019/4/26 11:36:00
--
Series.Y(i) = val(t.Rows(i)("不合格批次"))