关于查询按钮 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

希望点击查询按钮后能实现分组统计，查询按钮代码如下：

Dim Filter As String

Dim qsrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker2")

Dim jzrq As WinForm.DateTimePicker = e.Form.Controls("DateTimePicker3")

Dim cpxh As WinForm.DropDownBox = e.Form.Controls("cmbproduct")

Dim ddh As WinForm.ComboBox = e.Form.Controls("OrderNum")

If qsrq.Value IsNot Nothing Then

If Filter > "" Then

filter = filter & " and Date>= #" & qsrq.Value & "#"

End If

filter = "Date >= #" & qsrq.value & "#"

End If

If jzrq.Value IsNot Nothing Then

If filter > "" Then

filter = filter & " and Date <= #" & jzrq.Value & "#"

Else

filter = "Date <= #" & jzrq.value & "#"

End If

If cpxh.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "Type like '%" & cpxh.value & "%'"

End If

If ddh.Value IsNot Nothing Then

If Filter > "" Then

Filter = Filter & " And "

End If

Filter = Filter & "OrderNum like '%" & ddh.value & "%'"

End If

If Filter > "" Then

Tables("PVC Order Query_table1").Filter = Filter

End If

Dim tb As Table = Tables("PVC Order Query_table1")

Dim g As Subtotalgroup

tb.SubtotalGroups.Clear()

'定义产品分组

g = New Subtotalgroup '定义一个新的分组

g.Aggregate = AggregateEnum.Sum '统计类型为求和

g.GroupOn = "Type" '分组列为客户

g.TotalOn = "Quantity,SquareMeter,Cornice" '统计数量和金额列

g.Caption = "{0} 小计" '设置标题

tb.SubtotalGroups.Add(g) '加到分组集合中

'定义分组

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "OrderNum"

g.TotalOn = "Quantity,SquareMeter,Cornice"

g.Caption = "{0} 小计"

tb.SubtotalGroups.Add(g)

'定义总计分组

g = New Subtotalgroup

g.Aggregate = AggregateEnum.Sum

g.GroupOn = "*" '注意总计分组用符号*表示.

g.TotalOn = "Quantity,SquareMeter,Cornice"

g.Caption = "总计"

tb.SubtotalGroups.Add(g)

tb.Subtotal() '生成汇总模式

后面的分组统计代码非常影响速度，查询很慢。应该怎么改？

主题：关于查询按钮