呵呵,直接将这个表传上来吧,否则别人要帮你,还得设计表, 还得输入测试数据,自己多做点。
没有表测试,只能蒙一下,在命令窗口执行:
Dim b As New SQLGroupTableBuilder("统计表1","残酷")g.Groups.AddDef("产品名称")g.Groups.AddDef("仓库名称")g.Groups.AddDef("批号")b.Totals.AddExp("产品数量",iif([入出库类型] = '入库',1,-1) * [产品数量])g.Build()MainTable = Tables("统计表1")