怎么才能筛选时间生成图表呢 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以下是引用keeryq在2013-3-18 20:45:00的发言：
我筛选出来再做一个统计表然后绑定统计表做图表生成的还是全部的数据的这是为什么呢

你做个简单的例子发上来吧，输入一些测试数据，写好代码，再说明问题

我筛选出来再生成统计表但是生成的统计表还是没筛选以前的你能不能告诉我你是怎么做到呢 QQ920786406

你做个简单的例子发上来吧，输入一些测试数据，写好代码，再说明问题。

学会提炼问题做成简单例子，问题解决的速度会非常快。

窗口分析——分数分析里面的筛选出来生成统计表后生成的图表是一样的是不是统计表程序的错误呢麻烦您能改一改谢谢喽

下载信息 [文件大小：下载次数： ]
点击浏览该文件:练习.rar

注意红色的，你要设置统计条件：

'------------------------------筛选条件-------------------------------
Dim Filter As String
With e.Form.Controls("产品组")
    If .Value IsNot Nothing Then
        Filter = "培训_产品组1 = '" & .Value & "'"
    End If
End With
With e.Form.Controls("StartDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "培训_时间1 >= #" & .Value & "#"
    End If
End With
With e.Form.Controls("EndDate")
    If .Value IsNot Nothing Then
        If Filter >"" Then
            Filter = Filter & " And "
        End If
        Filter = Filter & "培训_时间1 <= #" & .Value & "#"
    End If
End With

'------------------------------------生成统计表------------------------
Dim g As New GroupTableBuilder("统计表2", DataTables("学员基础信息"))
g.Groups.AddDef("培训_产品组1", "产品组")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Max, "PretestMAX")
g.Totals.AddDef("ITC_ITC1_Pretest", AggregateEnum.Min, "PretestMIN")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Max, "PostTestMAX")
g.Totals.AddDef("ITC_ITC1_PostTest", AggregateEnum.Min, "PostTestMIN")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Max, "RolePlayMAX")
g.Totals.AddDef("ITC_ITC1_RolePlay", AggregateEnum.Min, "RolePlayMIN")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Max, "PPTMAX")
g.Totals.AddDef("ITC_ITC1_PPT", AggregateEnum.Min, "PPTMIN")
g.filter = Filter
g.Build()
'-------------------------------------生成图表---------------------------
Dim Chart As WinForm.Chart '定义一个图表变量
Dim Series As WinForm.ChartSeries '定义一个图系变量
Dim t As Table = Tables("统计表2") '定义一个变量t引用数据表
Chart = e.Form.Controls("Chart1") ' 引用窗口中的图表
Chart.ChartType = ChartTypeEnum.Bar '图表类型改为Bar(条形)
Chart.DataSource = "统计表2" '设置绑定表
Chart.SeriesList.Clear() '清除图表原来的图系
For Each c As Col In t.Cols
    If c.Name <> "产品组" Then
        Series = Chart.SeriesList.Add() '增加一个图系
        Series.Text = c.Name '设置图系的标题
        Series.X.DataField = "产品组" 'X轴绑定到产品列
        Series.Y.DataField = c.Name '设置Y轴的绑定列
    End If
Next
'Chart.VisualEffect = True '加上这一行,让你的图表更漂亮
Chart.LegendVisible = True '显示图列
Chart.LegendCompass= CompassEnum.South '图列显示在南方(底端)

我就是想把同一时间段同一产品组的最高分最低分筛选出来然后生成图表图表只显示这个产品组的最高分和最低分这样可以实现吗

这个没有办法直接用刚筛选实现，只能编码，或者用sql语句，例如求出每个产品最多和最少的一次订购数量：

select 产品名称, max(数量) As 最多, min(数量) As 最少 From {订单} Group by 产品名称

嗯嗯真的可以了谢谢哇图片点击可在新窗口打开查看

但是我还有一个问题就是分析窗体的那个怎么让分析窗体显示的只是人天总计/总人数这一个数据呢？现在显示的是人天总数和总人数两个数据

统计之后在增加一个表达式列：

'生成统计表
DataTables(”统计表").DataCols.Add("新列名称",GetType(Double),"人天总计/总人数")

Tables("统计表").Cols("人天总计").Visible = False
Tables("统计表").Cols("总人数").Visible = False

前辈帮帮我吧加上那句话就不行了图都不出来了只是想在分析窗体里面只显示（人天统计/实际人数）

下载信息 [文件大小：下载次数： ]
点击浏览该文件:练习.rar

主题：怎么才能筛选时间生成图表呢