Foxtable(狐表)用户栏目专家坐堂 → 【分组汇总】怎么进行条件筛选?


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

主题:【分组汇总】怎么进行条件筛选?

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


加好友 发短信
等级:九尾狐 帖子:2472 积分:17346 威望:0 精华:0 注册:2013/1/31 0:03:00
【分组汇总】怎么进行条件筛选?  发帖心情 Post By:2017/12/8 17:19:00 [只看该作者]

【分组汇总】怎么进行条件筛选?
红色部分代码该怎么写呢?让订单日期等于bg2(假设录入2017)中选择的年 进行筛选出订单日期中的2017年份数据

Dim bg1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bg2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"),"订单门店='" & bg1.Text & "'and 订单日期=             ")
dtb.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '添加日期列用于分组,并用"年"代替原名称
dtb.Groups.AddDef("订单日期","月")
dtb.Groups.AddDef("订单门店")
dtb.Totals.AddDef("发货价","投入")
dtb.Totals.AddDef("总额","产出")
dtb.Totals.AddDef("利润")
dtb.Subtotal=True
dtb.SamePeriodGrowth=True
dtb.VerticalTotal=True
dtb.GrandProportion=True
dtb.GroupProportion=True
dtb.CircleGrowth=True
dtb.Build()

图片点击可在新窗口打开查看此主题相关图片如下:1111.png
图片点击可在新窗口打开查看


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


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

Dim bg1 As WinForm.ComboBox = e.Form.Controls("ComboBox1")
Dim bg2 As WinForm.ComboBox = e.Form.Controls("ComboBox2")

Dim dtb As New GroupTableBuilder("统计",DataTables("订单明细"))
dtb.Groups.AddDef("订单日期", DateGroupEnum.Year, "年") '添加日期列用于分组,并用"年"代替原名称
dtb.Groups.AddDef("订单日期","月")
dtb.Groups.AddDef("订单门店")
dtb.Totals.AddDef("发货价","投入")
dtb.Totals.AddDef("总额","产出")
dtb.Totals.AddDef("利润")
dtb.Subtotal=True
dtb.SamePeriodGrowth=True
dtb.VerticalTotal=True
dtb.GrandProportion=True
dtb.GroupProportion=True
dtb.CircleGrowth=True
Dim d As Date = New date(bg2.text, 1, 1)
dtb.filter = "订单门店='" & bg1.Text & "' and 订单日期>=#" & d & "# and 订单日期<#" & d.AddYears(1) & "#"
dtb.Build()

 回到顶部