专家坐堂-【分组汇总】怎么进行条件筛选？Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

以文本方式查看主题

-  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=110755)

--  作者：李孝春
--  发布时间：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

--  作者：有点甜
--  发布时间：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()