专家坐堂-组合多个统计结果的时候Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim bd1 As New GroupTableBuilder("统计表1",DataTables("xiaoshou"))

Dim dt1 As fxDataSource

bd1.Groups.AddDef("name") \'根据name分组

bd1.Totals.AddDef("xiaoji","销售_金额") \'对金额进行统计

dt1 = bd1.BuildDataSource()

Dim bd3 As New GroupTableBuilder("统计表3",DataTables("chuanhuo1"))

Dim dt3 As fxDataSource

bd3.Groups.AddDef("name") \'根据name分组

bd3.Totals.AddDef("yihuishoujin","串货_金额") \'对shuliang进行统计

\'bd3.Totals.AddDef("金额","退货_金额") \'对金额进行统计

dt3 = bd3.BuildDataSource()

Dim bd5 As New GroupTableBuilder("统计表5",DataTables("tui"))

Dim dt5 As fxDataSource

bd5.Groups.AddDef("name") \'根据name分组

bd5.Totals.AddDef("tuijin","借货_金额") \'对shuliang进行统计

\'bd3.Totals.AddDef("金额","退货_金额") \'对金额进行统计

dt5 = bd5.BuildDataSource()

Dim bd6 As New GroupTableBuilder("统计表6",DataTables("rukudan"))

Dim dt6 As fxDataSource

bd6.Groups.AddDef("name") \'根据name分组

bd6.Totals.AddDef("xiaoji","进货_金额") \'对shuliang进行统计

\'bd3.Totals.AddDef("金额","退货_金额") \'对金额进行统计

dt6 = bd6.BuildDataSource()

Dim bd7 As New GroupTableBuilder("统计表7",DataTables("qt"))

Dim dt7 As fxDataSource

bd7.Groups.AddDef("name") \'根据name分组

bd7.Totals.AddDef("in","其他收入_金额") \'对shuliang进行统计

bd7.Totals.AddDef("out","其他支出_金额") \'对金额进行统计

dt7 = bd7.BuildDataSource()

dt1.Combine("name",dt7,"name")

\'dt1.Combine("name",dt2,"name") \'将销售统计数据组合到进货统计数据

dt1.Combine("name",dt3,"name") \'将退货统计数据组合到进货统计数据

\'dt1.Combine("name",dt4,"name")

dt1.Combine("name",dt5,"name")

dt1.Combine("name",dt6,"name")

Tables("窗口4_Table1").DataSource = dt1 \'将统计结果绑定到Table

With DataTables("窗口4_Table1").DataCols \'用表达式列计算库存数据

.Add("当前剩余_金额",Gettype(Integer), "IsNull([其他收入_金额],0) - IsNull([其他支出_金额],0) + ISNULL([销售_金额],0) + ISNULL([串货_金额],0) - ISNULL([借货_金额],0)")

End With