Foxtable(狐表)用户栏目专家坐堂 → [求助]关于组合统计内添加筛选条件的问题


  共有1847人关注过本帖树形打印复制链接

主题:[求助]关于组合统计内添加筛选条件的问题

帅哥哟,离线,有人找我吗?
1669607010
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
[求助]关于组合统计内添加筛选条件的问题  发帖心情 Post By: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("fa piao标重","入库_标重") '对数量进行统计
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("生产原料库存查询")

现在的问题是如果窗口控件“截止日期”为空的话,不能查询,哪位老师帮忙看看,应该怎么改代码,谢谢

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2018/5/15 8:41:00 [只看该作者]

加上判断

 

If d1 <> Nothing Then bd1.Filter = "操作日期 <= '" & d1 & "' "

 

If d1 <> Nothing Then bd2.Filter = "操作日期 <= '" & d1 & "' "


 回到顶部
帅哥哟,离线,有人找我吗?
1669607010
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:380 积分:3515 威望:0 精华:0 注册:2017/9/5 8:28:00
  发帖心情 Post By:2018/5/15 9:26:00 [只看该作者]

谢谢甜老师,用您的代码已解决问题

 回到顶部