从统计表中，获取需要的统计行 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师，您好。

我要获取月打卡数量最多的几个人，请老师给个方法。

我现在的思路是先分组统计，再取TOP *值，但是统计表是不能用select获取的，所以行不通。

此主题相关图片如下：111.jpg

先用分组统计，获取下面的统计表：

再取前2名:----(此处行不通)

S elect T O P 2 * FR O M {统计表1} ORDER BY 打卡次数 D e sc

此主题相关图片如下：222.jpg

[此贴子已经被作者于2017/6/12 13:51:01编辑过]

参考代码

select top 2 第一列, count(*) as 打卡次数 from {表A} group by 第一列 order by count(*) desc

老师，如果要将获得的统计表用图表显示出来，代码要怎么写？

msgbox(2) --> msgbox(3)错误：未将对象引用设置到对象的实例。

'Dim Chart As WinForm.Chart '定义一个图表变量

Dim Chart As New ChartBuilder

Dim Series As WinForm.ChartSeries '定义一个图系变量

Dim t As Table = Tables("统计表1") '定义一个变量t引用数据表

'Chart= e.Form.Controls("Chart1") ' 引用窗口中的图表

'Chart.SeriesList.Clear() '清除图表原来的图系

Chart.PrintWidth = 140

Chart.PrintHeight = 100

Chart.VisualEffect = True

Series = Chart.SeriesList.Add() '增加一个图系

Series.Length = t.Rows.Count '图系的数据点数等于表的行数

Msgbox(1)

For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置

Msgbox(2)

Series.X(i) = t.Rows(i)("姓名") '指定水平坐标

Series.Y(i) = t.Rows(i)("打卡次数") '指定垂直坐标

Msgbox(3)

Msgbox(4)

wb.AddPageTitle("","ph1","FoxUI")

Msgbox(5)

wb.InsertHTML("<img width='100%' src='" & wb.ImageToBase64(Chart.Image) & "'/>")

此主题相关图片如下：222.jpg

    For i As Integer = 0 To t.Rows.Count - 1 '指定每个数据点的位置
        Msgbox(2)
        Series.X(i) = i'指定水平坐标
        Series.Y(i) = val(t.Rows(i)("打卡次数")) '指定垂直坐标
        Chart.AxisX.SetValueLabel(i, t.Rows(i)("姓名")) '指定字符表示
    Next
    Chart.AxisX.AnnoWithLabels = True '启用字符标示

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

主题：从统计表中，获取需要的统计行