主题：[求助] SQLGroupTableBuilder

求助，SQLGroupTableBuilder生成查询表后，如何对DataTable排序？以下是代码，谢谢老师！

Dim b As New SQLGroupTableBuilder("统计表_提案数","问题管理表")
b.C
b.Filter = "year(创建日期) = '" & y & "' And (状态 = '生效' or 状态 = '批准' or 状态 = '退出')"
b.Groups.AddDef("创建人")
b.Totals.AddDef("问题编号",AggregateEnum.Count,"记录数") '根据不重复值列来统计记录数,也就是记录数
b.Build(False)

'绘制柱状图
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表_提案数"

红色代码没起作用

Dim b As New SQLGroupTableBuilder("统计表_提案数","问题管理表")
b.C
b.Filter = "year(创建日期) = '" & y & "' And (状态 = '生效' or 状态 = '批准' or 状态 = '退出')"
b.Groups.AddDef("创建人")
b.Totals.AddDef("问题编号",AggregateEnum.Count,"记录数") '根据不重复值列来统计记录数,也就是记录数
b.Build()

'绘制柱状图
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表_提案数"

老师，不行的，我想到了，也试了。

Chart引用的是datatable, 不是table

老师，我把这个按钮的代码都贴上来，老师帮我看看问题在哪里，谢谢！

Dim y As String = e.Form.Controls("cbb_年度").Value
'对后台数据进行统计
Dim b As New SQLGroupTableBuilder("统计表_提案数","问题管理表")
b.C
b.Filter = "year(创建日期) = '" & y & "' And (状态 = '生效' or 状态 = '批准' or 状态 = '退出')"
b.Groups.AddDef("创建人")
b.Totals.AddDef("问题编号",AggregateEnum.Count,"记录数") '根据不重复值列来统计记录数,也就是记录数
b.Build(False)
MainTable = Tables("统计表_提案数")
Tables("统计表_提案数").Sort = "记录数 DESC"

'绘制柱状图
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表_提案数"
Chart.SeriesList.Clear() '清除图表原来的图系
Chart.VisualEffect = True
Chart.AxisX.ClearValueLabel
Chart.ChartType = ChartTypeEnum.Bar
Chart.HeaderFont = New Font("微软雅黑",18,FontStyle.Bold)
Chart.HeaderText = "提案数量排行榜 - " & y
Chart.LegendCompass = CompassEnum.South '图例的位置
Chart.LegendFont = New Font("微软雅黑",10,FontStyle.Bold)
Chart.AxisX.AnnoRotation = 0 'X轴标示逆时针旋转45度
Chart.AxisX.Font = New Font("微软雅黑",9,FontStyle.Bold)
Chart.LegendVisible = True '显示图列
Chart.AxisX.AnnoWithLabels = True '启用字符标示
Series = Chart.SeriesList.Add() '增加一个图系
Series.Text = "提案人"
Series.X.DataField = "创建人" 'X轴绑定到产品列
Series.Y.DataField = "记录数" 'Y轴绑定到数量列
e.Form.Controls("Chart1").TopMost = True

结果：见附件

重复上传直到上传成功