以文本方式查看主题

-  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=158559)
--  作者：crazyfengyu
--  发布时间：2020/11/24 15:00:00
--  [求助]按照时间范围进行筛选
库存表有：    商品名称      商品类型      入库时间

Dim nm As WinForm.ComboBox = e.Form.Controls("商品名称")
Dim status As WinForm.ComboBox = e.Form.Controls("商品类型")
Dim start As WinForm.DateTimePicker = e.Form.Controls("开始日期")
Dim dend As WinForm.DateTimePicker = e.Form.Controls("结束日期")

请问老师上面4个条件都有可能为空，也可能4个条件都存在，如何对库存表进行filter
--  作者：有点蓝
--  发布时间：2020/11/24 15:01:00
--  
参考：http://www.foxtable.com/webhelp/topics/1058.htm
--  作者：crazyfengyu
--  发布时间：2020/11/24 16:16:00
--  

Dim g As New SubtotalGroup \'定义一个新的分组
g.GroupOn = "客户" \'分组列为客户列
g.TotalOn = "数量,金额" \'对数量和金额进行统计
With Tables("订单")
    .SubtotalGroups.Clear() \'清除原有的分组
    .SubtotalGroups.Add(g) \'加入刚刚定义的分组
    .Subtotal() \'生成汇总模式
End With


老师，使用上面的代码进行汇总后，如何导出成表格，包含汇总结果
--  作者：有点蓝
--  发布时间：2020/11/24 16:26:00
--  
参考：http://www.foxtable.com/webhelp/topics/0559.htm