运行提示什么错误？
Dim a As String = Tables("零售明细表").Current("店名")
Dim g As New SQLGroupTableBuilder("统计表1", "零售明细表")
g.C
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 & "'"
g.Build()
加好友 
发短信
Post By：2018/9/18 21:38:00 [显示全部帖子]
