以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  SQLGroupTableBuilder  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=53251)
--  作者：石四
--  发布时间：2014/7/3 15:54:00
--  SQLGroupTableBuilder

参考

示例三

统计结果可以来自任意多个表，例如要按年统计每个客户订购不同产品的数量：

Dim b As New SQLGroupTableBuilder("统计表1","订单")
b.ConnectionName = "Sale"
b.AddTable("订单","产品ID","产品","产品ID") \'添加统计表
b.AddTable("订单","客户ID","客户","客户ID") \'添加统计表
b.Groups.AddDef("客户名称") \'根据产品名称分组
b.Groups.AddDef("日期", DateGroupEnum.Year, "年") \'根据日期按年分组
b.Groups.AddDef("产品名称") \'根据产品名称分组
b.Totals.AddDef("数量") \'对数量进行统计
b.Build \'生成统计表
Maintable = Tables("统计表1") \'打开生成的统计表

 下载信息  [文件大小：   下载次数： ]
点击浏览该文件:事例.zip

三个表：计划，登记，工序表

 

Dim b As New SQLGroupTableBuilder("统计表1","登记")

b.C

b.AddTable("登记","批次","计划","批次") \'添加统计表

b.AddTable("登记","工序码","工序表","工序码") \'添加统计表

b.Groups.AddDef("批次")

b.Groups.AddDef("零件名称")

b.Groups.AddDef("工序名称")

b.Totals.AddDef("数量") \'对数量进行统计

b.Totals.AddExp("金额","数量 * 单价")

b.Build \'生成统计表

MainTable = Tables("统计表1")

 

执行后报错，将蓝色字体代码屏蔽后能通过，三个表统计不行，两个表的可以，是哪里问题？

 


 
--  作者：有点甜
--  发布时间：2014/7/3 16:14:00
--  

 代码

 

Dim b As New SQLGroupTableBuilder("统计表1","登记")

b.ConnectionName= "sl"

b.AddTable("登记","批次","计划","批次") \'添加统计表

b.AddTable("登记","工序码","工序表","工序码") \'添加统计表

b.Groups.AddDef("{登记}.批次")

b.Groups.AddDef("零件名称")

b.Groups.AddDef("工序名称")

b.Totals.AddDef("{登记}.数量") \'对数量进行统计

b.Totals.AddExp("金额","{登记}.数量 * 单价")

b.Build \'生成统计表