《开发宝典》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编辑过]
加好友 
发短信
Post By：2019/1/24 18:17:00 [只看该作者]
