Foxtable(狐表)用户栏目专家坐堂 → 关于多表统计的案例,有附件 希解答


  共有4426人关注过本帖树形打印复制链接

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

帅哥哟,离线,有人找我吗?
有点甜
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/8 20:27:00 [显示全部帖子]

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

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

 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/8 22:15:00 [显示全部帖子]

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

 留意红色地方,参考帮助 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


 回到顶部
帅哥哟,离线,有人找我吗?
有点甜
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:版主 帖子:85326 积分:427815 威望:0 精华:5 注册:2012/10/18 22:13:00
  发帖心情 Post By:2013/10/8 22:34:00 [显示全部帖子]

 代码

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

 回到顶部