以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]《开发宝典》P472~473代码 已经解决!!!封贴  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=130543)

--  作者:海蓝服务
--  发布时间:2019/1/24 18:17:00
--  [求助]《开发宝典》P472~473代码 已经解决!!!封贴

《开发宝典》P472~473 以组合框内容为条件,同时增加金额的统计值及占比数据的代码

Dim b As New SQLGroupTableBuilder(Nothing ,"订单")
b.C
b.AddTable("订单","产品ID","产品","产品ID")
b.AddTable("订单","客户ID","客户","客户ID")
b.Groups.AddDef("客户名称")
b.Totals.AddDef("数量","数量_值")
b.Totals.AddDef("金额","单价*(1-折扣)*数量","金额_值")
b.Filter = "产品名称 = \'" & e.Form.Controls("ComboBox1").Value &"\'"
b.VerticalTotal = True
b.GroupProportion = True
Tables("主控窗口_Table3").DataSource = b.BuildDataSource()
e.Form.Controls("Table3").Visible = True

运行后弹出  统计错误,错误原因:至少一个参数没有被指定值
请教!!!  
已经解决,代码中红色部分应为   .AddExp  录入手误!!!

[此贴子已经被作者于2019/1/24 18:34:38编辑过]