| 以文本方式查看主题 - 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=118953) |
| -- 作者：1669607010 -- 发布时间：2018/5/15 8:28:00 -- [求助]关于组合统计内添加筛选条件的问题 [求助]关于组合统计内添加筛选条件的问题，我做了个库存组合统计窗口用于对库存进行查询，并设置了一个筛选条件"截止日期“，希望输入某一天的日期后可以查询截止到那一天的库存情况，下面的代码已经能实现： Dim d1 As Date = Forms("外购原料库存查询").Controls("EndDate").Value Dim bd1 As New GroupTableBuilder("生产原料库存查询",DataTables("原料出入库")) Dim dt1 As fxDataSource bd1.FromServer = True bd1.Filter = "操作日期 <= \'" & d1 & "\' " bd1.Groups.AddDef("原料批次") \'根据型号分组 bd1.Totals.AddDef("预入含税单价","预入含税单价") \'对金额进行统计 bd1.Totals.AddDef("入库件数","入库_件数") \'对金额进行统计 bd1.Totals.AddDef("发票标重","入库_标重") \'对数量进行统计 dt1 = bd1.BuildDataSource() Dim bd2 As New GroupTableBuilder("统计表2",DataTables("外购原料出库")) Dim dt2 As fxDataSource bd2.FromServer = True bd2.Filter = "操作日期 <= \'" & d1 & "\' " bd2.Groups.AddDef("原料货号") \'根据型号分组 bd2.Totals.AddDef("出库件数","出库_件数") \'对金额进行统计 bd2.Totals.AddDef("出库标重","出库_标重") \'对数量进行统计 dt2 = bd2.BuildDataSource() dt1.Combine("原料批次",dt2,"原料货号") \'将销售统计数据组合到进货统计数据 dt1.Show("生产原料库存查询") 现在的问题是如果窗口控件“截止日期”为空的话，不能查询，哪位老师帮忙看看，应该怎么改代码，谢谢
|
| -- 作者：有点甜 -- 发布时间：2018/5/15 8:41:00 -- 加上判断
If d1 <> Nothing Then bd1.Filter = "操作日期 <= \'" & d1 & "\' "
If d1 <> Nothing Then bd2.Filter = "操作日期 <= \'" & d1 & "\' " |
| -- 作者：1669607010 -- 发布时间：2018/5/15 9:26:00 -- 谢谢甜老师，用您的代码已解决问题 |