试试这样测试,如果下面代码也有问题,做个例子发上来看看。
Dim a As String = Tables("零售明细表").Current("店名")
Dim g As New SQLGroupTableBuilder("统计表1", "零售明细表")
g.AddTable("零售明细表","商品编号","商品信息表","永久编号" )
g.Groups.AddDef("{商品信息表}.商品编号")
g.Groups.AddDef("商品名称")
g.Groups.AddDef("进价")
g.Totals.AddDef("数量")
g.Totals.AddExp("成本","进价 * 数量")
g.Totals.AddExp("利润","(单价 - 进价) * 数量")
g.Totals.AddDef("总额")
g.VerticalTotal = True
g.GrandProportion = True
g.Build()