以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- 关于查询按钮 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=169874) |
-- 作者:whx007 -- 发布时间:2021/7/5 1:35:00 -- 关于查询按钮 希望点击查询按钮后能实现分组统计,查询按钮代码如下: 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 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() \'生成汇总模式 后面的分组统计代码非常影响速度,查询很慢。应该怎么改?
|
-- 作者:有点蓝 -- 发布时间:2021/7/5 8:34:00 -- 这种是汇总模式,不是分组统计。如果慢应该是加载了太多数据,筛选后有多少行数据? |
-- 作者:whx007 -- 发布时间:2021/7/5 16:43:00 -- 一周的数据大概七八十行 我去掉统计代码基本是秒出来,这种情况有没可能有其他方式实现
|
-- 作者:有点蓝 -- 发布时间:2021/7/5 17:05:00 -- 不会吧,才几十行。有表事件和表达式列吗?具体上传实例看看 |
-- 作者:whx007 -- 发布时间:2021/7/6 2:30:00 -- 错了,一周间隔是500行左右,查询一周还可以。查询一个月间隔以上时间就慢了。 表事件只有部分计算代码,也不复杂。没有表达式列。
|
-- 作者:有点蓝 -- 发布时间:2021/7/6 8:55:00 -- 查询一个月间隔以上有多少数据?慢到什么程度? |