这样有没有问题？msgbox弹出什么？
Dim a As String = Tables("零售明细表").Current("店名")
Dim g As New SQLGroupTableBuilder("统计表1", "零售明细表")
g.AddTable("零售明细表","商品编号","商品信息表","永久编号" )
g.Groups.AddDef("{商品信息表}.商品编号")
g.Groups.AddDef("商品名称")
g.Groups.AddDef("进价")
'g.Groups.AddDef("日期", DateGroupEnum.None)
g.Totals.AddDef("数量")
g.Totals.AddExp("成本","进价 * 数量")
g.Totals.AddExp("利润","(单价 - 进价) * 数量")
g.Totals.AddDef("总额")
g.VerticalTotal = True
g.GrandProportion = True
g.Filter = "[日期] = '" & Date.today & "' and [商品名称] is not null and [店名] = '" & a & "'"
msgbox(g.filter)
g.Build()
[此贴子已经被作者于2018/9/19 10:16:28编辑过]
加好友 
发短信
Post By：2018/9/19 9:27:00 [显示全部帖子]
