主题：筛选之后无法统计

此主题相关图片如下：filehelper_1470478161484_63.png


此主题相关图片如下：filehelper_1470478120722_51.png

老师，我的代码设计师这样的，先根据日期筛选，然后进行分组统计，但是不知道为什么筛选后进行统计后生成的统计表表好像图二一样，一点数据都没有。

以下是代码

Dim qs As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim js As WinForm.ComboBox = e.Form.Controls("ComboBox2")

If qs.text IsNot Nothing
    If js.text IsNot Nothing
        Tables("T26").Filter = "F223 >= '" &qs.Text & "'and F223 <= '" & js.Text & "'"
       
        Dim g As New GroupTableBuilder("各地区报修次数统计(按年生成)", DataTables("T26"))
        g.Caption = "各地区报修次数统计(按年生成)"
        g.Groups.AddDef("F221", "地区")
        g.Groups.AddDef("F223", DateGroupEnum.Year, "年")
        g.Totals.AddDef("F220", AggregateEnum.Count, "报修次数")
        g.VerticalTotal = False
        g.SamePeriodGrowth = True
        g.CircleGrowth = True
        g.FromServer = True
        g.Filter = Tables("T26").Filter
        g.Build()
       
        With Tables("各地区报修次数统计(按年生成)")
            .MergeMode = MergeModeEnum.Free
            .MergeCols.Clear()
            .MergeCols.Add("地区")
            .MergeSort = "地区"
            .AllowMerge = True
        End With
        MainTable = Tables("各地区报修次数统计(按年生成)")
    End If
End If

messagebox.show(Tables("T26").Filter) 看看

自己弄可以了，谢谢。