以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  分组统计多表统计到一表一列  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=171855)
--  作者：akey67
--  发布时间：2021/9/12 19:12:00
--  分组统计多表统计到一表一列
Dim g As New GroupTableBuilder("统计表1", DataTables("订单往来"))
Dim dt1 As fxDataSource
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.Totals.AddDef("建设到总包收款金额")

dt2=h.Builddatasource()

Dim j As New GroupTableBuilder("统计表3", DataTables("分包结算付款明细_对下游_非同步"))
Dim dt3 As fxDataSource
j.Groups.AddDef("框架合同编号")
j.Groups.AddDef("付款日期", "月")
j.Totals.AddDef("付款金额")


dt3=j.Builddatasource()

dt1.Combine("框架合同编号",dt3,"框架合同编号")

dt1.Combine("框架合同编号",dt2,"框架合同编号")


dt1.Show("统计表1")




想让到下游付款日期，到下游付款金额和付款日期，付款金额合并到一起
--  作者：有点蓝
--  发布时间：2021/9/12 21:12:00
--  
参考：http://www.foxtable.com/webhelp/topics/2392.htm

Dim nms1 As String() = {"框架合同编号","下游付款日期"} \'指定连接列
Dim nms2 As String() = {"框架合同编号","建设到总包收款日期"}
Dim nms3 As String() = {"框架合同编号","付款日期"}
dt1.Combine(nms1,dt2,nms2) \'将销售统计数据组合到进货统计数据
dt1.Combine(nms1,dt3,nms3)
dt1.Show("统计表1")
--  作者：akey67
--  发布时间：2021/9/14 21:39:00
--  
谢谢大佬，解决了一部分问题，但是报错，我把那个月给去掉就可以实现一部分
--  作者：有点蓝
--  发布时间：2021/9/14 21:54:00
--  
试试

Dim nms As String() = {"框架合同编号","月"} \'指定连接列
dt1.Combine(nms,dt2,nms) \'将销售统计数据组合到进货统计数据
dt1.Combine(nms,dt3,nms)
dt1.Show("统计表1")