主题：表计算

表中的数据很多，有几万行，列也十几列，数据量很大，我想增加一个菜单实现计算功能，比如有一个产品表，有几万种产品（假设），需要计算销售数量等数据，我现在的想法是先添加产品名称，然后再点按钮计算各种数据。

该怎么做，有现成的例子吗？

直接做报表统计。比如

 

http://www.foxtable.com/help/topics/1626.htm

 

 

 

Dim bd1 As New SQLGroupTableBuilder("统计表1","甲银行")
Dim dt1 As fxDataSource
bd1.Groups.AddDef("对方账号") '根据对方账号分组
bd1.Groups.AddDef("对方户名") '根据对方账号分组
bd1.Totals.AddDef("借方金额","银行_借方") '对数量进行统计
bd1.Totals.AddDef("贷方金额","银行_贷方") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New SQLGroupTableBuilder("统计表2","乙银行")
Dim dt2 As fxDataSource
bd2.Groups.AddDef("对方账号") '根据对方账号分组
bd2.Groups.AddDef("对方户名") '根据对方账号分组
bd2.Totals.AddDef("借方金额","银行_借方") '对数量进行统计
bd2.Totals.AddDef("贷方金额","银行_贷方") '对数量进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"对方账号","对方户名"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结

我用上述代码统计甲乙公司银行数据，这段一直提示没对方账号列，这两个表都有这个列，而且是从字段名抄过来的，不知道是什么原因

统计出来的结果是临时表没有办法，我想保存怎么办，还需要再增加一个表然后粘贴过去吗

你看一下表结构，看是否正确，直接拷贝粘贴列名

 

http://www.foxtable.com/help/topics/0193.htm

 

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("进货单"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("型号") '根据型号分组
bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计
bd1.Totals.AddDef("金额","进货_金额") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("统计表2",DataTables("销售单"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("型号") '根据型号分组
bd2.Totals.AddDef("数量","销售_数量") '对数量进行统计
bd2.Totals.AddDef("金额","销售_金额") '对金额进行统计
dt2 = bd2.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("退货单"))
Dim dt3 As fxDataSource
bd3.Groups.AddDef("型号") '根据型号分组
bd3.Totals.AddDef("数量","退货_数量") '对数量进行统计
bd3.Totals.AddDef("金额","退货_金额") '对金额进行统计
dt3 = bd3.BuildDataSource()

dt1.Combine("型号",dt2,"型号") '将销售统计数据组合到进货统计数据
dt1.Combine("型号",dt3,"型号") '将退货统计数据组合到进货统计数据
dt1.Show("统计表1") '显示统计结果

 

 

用这个统计可以统计，但是用这个方法需要加载全部数据，且数据量太大，而且交付后操作方便，

用sqlGroupTableBuilder

Dim bd1 As New GroupTableBuilder("账号统计",DataTables("甲公司"))
Dim dt1 As fxDataSource
bd1.Groups.AddDef("对方账号") '根据品名分组
bd1.Groups.AddDef("对方户名") '根据型号分组
bd1.Totals.AddDef("借方金额","宏江_借方") '对数量进行统计
bd1.Totals.AddDef("贷方金额","宏江_贷方") '对金额进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New GroupTableBuilder("账号统计",DataTables("乙公司"))
Dim dt2 As fxDataSource
bd2.Groups.AddDef("对方账号") '根据品名分组
bd2.Groups.AddDef("对方户名") '根据型号分组
bd2.Totals.AddDef("借方金额","银行_借方") '对数量进行统计
bd2.Totals.AddDef("贷方金额","银行_贷方") '对金额进行统计
dt2 = bd2.BuildDataSource()

Dim nms As String() = {"对方账号","对方户名"} '指定连接列
dt1.Combine(nms,dt2,nms) '将销售统计数据组合到进货统计数据
dt1.Show("账号统计") '显示统计结果

 

由这个方法统计就没有什么问题，但是没有办法从后台统计