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

我在操作指南里面按照案例说明组合多个统计，出现问题老师帮忙指点，谢谢

以下是这是按键统计代码，新建一个窗口，在窗口中插入一个Table控件和一个按钮，将按钮的Click事件代码设为：

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("数量1", "数量") '对数量进行统计

bd2.Totals.AddDef("金额1", "金额") '对金额进行统计

dt2 = bd2.BuildDataSource()

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

Dim dt3 As fxDataSource

bd3.Groups.AddDef("姓名") '根据型号分组

bd3.Totals.AddDef("数量2", "数量") '对数量进行统计

bd3.Totals.AddDef("金额2", "金额") '对金额进行统计

dt3 = bd3.BuildDataSource()

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

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

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

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

End With

Dim bd2 As New GroupTableBuilder("统计表2", DataTables("计件统计"))

Dim dt2 As fxDataSource

bd2.Groups.AddDef("姓名1") '根据型号分组

bd2.Totals.AddDef("数量1", "数量") '对数量进行统计

bd2.Totals.AddDef("金额1", "金额") '对金额进行统计

dt2 = bd2.BuildDataSource()

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

Dim dt3 As fxDataSource

bd3.Groups.AddDef("姓名2") '根据型号分组

bd3.Totals.AddDef("数量2", "数量") '对数量进行统计

bd3.Totals.AddDef("金额2", "金额") '对金额进行统计

dt3 = bd3.BuildDataSource()

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

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

又没什么参照方法把上面统计好窗口里面的计件工资，按照姓名把金额引到工资表上去，谢谢

For Each dr1 As DataRow In DataTables("窗口1_Table1").datarows
Dim dr2 As DataRow = DataTables("工资表").find("姓名='" & dr1("姓名") & "'")

if dr2 isnot nothing then

dr2("金额") = dr1("金额")

endif
Next

老师这代码是设置在表那个事件

窗口添加按钮，放到按钮事件

主题：组合多个统计