Foxtable(狐表)用户栏目专家坐堂 → [求助] SQLGroupTableBuilder


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

主题:[求助] SQLGroupTableBuilder

帅哥哟,离线,有人找我吗?
hotday1972
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
[求助] SQLGroupTableBuilder  发帖心情 Post By:2019/7/24 11:28:00 [显示全部帖子]

求助,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)
DataTabe("统计表_提案数").LoadOrder = "记录数" ' 
DataTabe("统计表_提案数").Load()
'绘制柱状图
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.DataSource = "统计表_提案数"

红色代码没起作用

 回到顶部
帅哥哟,离线,有人找我吗?
hotday1972
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
  发帖心情 Post By:2019/7/24 12:52:00 [显示全部帖子]

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

Chart引用的是datatable, 不是table

Chart.DataSource = "统计表_提案数"


 回到顶部
帅哥哟,离线,有人找我吗?
hotday1972
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
  发帖心情 Post By:2019/7/24 14:15:00 [显示全部帖子]

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

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

结果:见附件


 回到顶部
帅哥哟,离线,有人找我吗?
hotday1972
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
  发帖心情 Post By:2019/7/24 14:17:00 [显示全部帖子]

图片呢?

 回到顶部
帅哥哟,离线,有人找我吗?
hotday1972
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
  发帖心情 Post By:2019/7/24 14:19:00 [显示全部帖子]



 回到顶部
帅哥哟,离线,有人找我吗?
hotday1972
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:一尾狐 帖子:430 积分:2889 威望:0 精华:0 注册:2015/4/28 21:12:00
  发帖心情 Post By:2019/7/24 14:20:00 [显示全部帖子]

我咋看不见图片,附件添加了啊!图片点击可在新窗口打开查看

 回到顶部