把三个表内容自动统计到一个表内 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

请问如何添加两列剩余多少数量和剩余多少金额计算列？

Dim b As New CrossTableBuilder("统计表1",DataTables("进仓表"))

Dim dt1 As fxDataSource

b.HGroups.AddDef("编号") '添加客户列用于水平分组

b.VGroups.AddDef("进仓日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

b.VGroups.AddDef("进仓日期","{0}月") '添加日期列用于垂直分组,按月分组

b.Totals.AddDef("进仓数量") '添加数量列用于统计

b.Totals.AddDef("进仓金额") '添加数量列用于统计

b.VerticalTotal= True '垂直汇总

b.HorizontalTotal = True '水平汇总

dt1 = b.BuildDataSource()

Dim a As New CrossTableBuilder("统计表2",DataTables("出仓表"))

Dim dt2 As fxDataSource

a.HGroups.AddDef("编号") '添加客户列用于水平分组

a.VGroups.AddDef("出仓日期",DateGroupEnum.Year,"{0}年") '添加日期列用于垂直分组,按年分组

a.VGroups.AddDef("出仓日期","{0}月") '添加日期列用于垂直分组,按月分组

a.Totals.AddDef("出仓数量") '添加数量列用于统计

a.Totals.AddDef("出仓金额") '添加数量列用于统计

a.VerticalTotal= True '垂直汇总

a.HorizontalTotal = True '水平汇总

dt2 = a.BuildDataSource()

dt1.Combine("编号",dt2,"编号")

Dim t As Table = Forms("统计表").controls("Table1").Table

t.DataSource = dt1 '将统计结果绑定到Table

主题：把三个表内容自动统计到一个表内