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

请各位大神们帮我看看,总抱错说已经有了重复项的键..

附件如下

下载信息 [文件大小：下载次数： ]
点击浏览该文件:多表统计实验.table

修改了一下，你看看是不是你想要的统计。参考着改一下。

Dim ary1() As String = {"款号", "条码号", "颜色", "尺码"}

Dim ary2() As String = {"款号", "条码号", "颜色", "尺码"}

Dim g As New GroupTableBuilder("统计表1", DataTables("盘点表"))

Dim dt1 As fxDataSource

g.Groups.AddDef("款号")

g.Groups.AddDef("条码号")

g.Groups.AddDef("颜色")

g.Groups.AddDef("尺码")

g.Totals.AddDef("实盘数","入库_件数")

dt1 = g.BuildDataSource()

'-------销售表 ------------(销售表)

Dim h As New GroupTableBuilder("统计表2", DataTables("销售表"))

Dim dt2 As fxdatasource

h.Groups.AddDef("款号")

h.Groups.AddDef("条码号")

h.Groups.AddDef("颜色")

h.Groups.AddDef("尺码")

'h.Groups.AddDef("销售日期","销售_销售日期")

h.Totals.AddDef("件数","销售_件数")

dt2 = h.BuildDataSource()

dt1.Combine(ary1,dt2,ary2)

Tables("汇总表 _Table1").DataSource = dt1 '将统计结果绑定到Table

有点甜老师

用了您的代码了, 但是结果还是一样,出现了"已经添加具有相同键的项"

不知道为什么..

参考来做一下，适当修改，不要等别人贴上全部代码。

留意红色地方，参考帮助 http://www.foxtable.com/help/topics/2392.htm

Dim ary1() As String = {"款号", "条码号", "颜色", "尺码"}

Dim ary2() As String = {"款号", "条码号", "颜色", "尺码"}

Dim g As New GroupTableBuilder("统计表1", DataTables("盘点表"))

Dim dt1 As fxDataSource

g.Groups.AddDef("款号")

g.Groups.AddDef("条码号")

g.Groups.AddDef("颜色")

g.Groups.AddDef("尺码")

g.Totals.AddDef("实盘数","入库_件数")

dt1 = g.BuildDataSource()

'-------销售表 ------------(销售表)

Dim h As New GroupTableBuilder("统计表2", DataTables("销售表"))

Dim dt2 As fxdatasource

h.Groups.AddDef("款号")

h.Groups.AddDef("条码号")

h.Groups.AddDef("颜色")

h.Groups.AddDef("尺码")

'h.Groups.AddDef("销售日期","销售_销售日期")

h.Totals.AddDef("件数","销售_件数")

dt2 = h.BuildDataSource()

dt1.Combine(ary1,dt2,ary2)

Tables("汇总表 _Table1").DataSource = dt1 '将统计结果绑定到Table

可怜的孩子，大家帮帮他把，看他问了好几天了还没解决图片点击可在新窗口打开查看

代码

Dim ary1() As String = {"款号", "条码号", "颜色", "尺码"}

Dim ary2() As String = {"款号", "条码号", "颜色", "尺码"}

Dim g As New GroupTableBuilder("统计表1", DataTables("盘点表"))

Dim dt1 As fxDataSource

g.Groups.AddDef("款号")

g.Groups.AddDef("条码号")

g.Groups.AddDef("颜色")

g.Groups.AddDef("尺码")

g.Totals.AddDef("实盘数","入库_件数")

dt1 = g.BuildDataSource()

'-------销售表 ------------(销售表)

Dim h As New GroupTableBuilder("统计表2", DataTables("销售表"))

Dim dt2 As fxdatasource

h.Groups.AddDef("款号")

h.Groups.AddDef("条码号")

h.Groups.AddDef("颜色")

h.Groups.AddDef("尺码")

'h.Groups.AddDef("销售日期","销售_销售日期")

h.Totals.AddDef("件数","销售_件数")

dt2 = h.BuildDataSource()

'---------------调入----------(入库表)

Dim j As New GroupTableBuilder("统计表3", DataTables("入库表"))

Dim dt3 As fxdatasource

j.groups.adddef("款号")

j.Groups.AddDef("条码号")

j.Groups.AddDef("尺码")

j.Groups.AddDef("颜色")

'j.Groups.AddDef("入库日期","入库_入库日期")

'j.Groups.AddDef("入库渠道","入库_入库渠道")

j.Totals.AddDef("件数","入库_件数")

dt3 = j.BuildDataSource()

'--------------调出 ----------(出库表)

Dim k As New GroupTableBuilder("统计表4", DataTables("出库表"))

Dim dt4 As fxdatasource

k.Groups.AddDef("款号")

k.Groups.AddDef("条码号")

k.Groups.AddDef("尺码")

k.Groups.AddDef("颜色")

'k.Groups.AddDef("出库日期","出库_出库日期")

'k.Groups.AddDef("收货地点","出库_收货地点")

k.Totals.AddDef("件数","出库_件数")

dt4 =k.BuildDataSource()

dt1.Combine(ary1,dt2,ary2)

dt1.Combine(ary1,dt3,ary2)

dt1.Combine(ary1,dt4,ary2)

Tables("汇总表 _Table1").DataSource = dt1 '将统计结果绑定到Table

主题：关于多表统计的案例,有附件 希解答

主题：关于多表统计的案例,有附件希解答