两个交叉统计都用了日期，请问怎么按照日期合并？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

照搬代码如下：

Dim bd1 As New CrossTableBuilder("统计表1",sql1, "c")

Dim dt1 As fxDataSource

bd1.HGroups.AddDef("FWORKSHOPID") '根据型号分组

bd1.HGroups.AddDef("FNAME")

bd1.VGroups.AddDef("FDATE",DateGroupEnum.Month,"{0}月")

bd1.Totals.AddDef("FREALQTY","入库数量") '对数量进行统计

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

dt1 = bd1.BuildDataSource()

Dim bd2 As New CrossTableBuilder("统计表2",sql2, "cl")

Dim dt2 As fxDataSource

bd2.HGroups.AddDef("FWORKSHOPID") '根据型号分组

bd2.VGroups.AddDef("FDATE",DateGroupEnum.Month,"{0}月")

bd2.Totals.AddDef("FUNQUALIFIEDQTY","不合格数量") '对数量进行统计

dt2 = bd2.BuildDataSource()

'Dim nms As String() = {"FWORKSHOPID","{0}月"} '指定连接列

Dim nms As String() = {"FWORKSHOPID"} '指定连接列

dt1.Combine(nms,dt2,nms)

'dt1.Combine("FWORKSHOPID",dt2,"FWORKSHOPID")

Tables("窗口_Table1").DataSource = dt1

请问如何写代码将两个表按照日期合并到一起？现有代码只能简单将两个结果合并连接到一起，不能按照日期{0}月分别显示结果

此主题相关图片如下：企业微信截图_15335156138763.png

[此贴子已经被作者于2018/8/6 8:34:15编辑过]

以下是引用有点甜在2018/8/6 8:56:00的发言：

1、移动列

http://www.foxtable.com/webhelp/scr/0587.htm

2、添加表达式列

http://www.foxtable.com/webhelp/scr/1428.htm

这里是根据代码生成的列

bd1.VGroups.AddDef("FDATE",DateGroupEnum.Month,"{0}月")

我不会定位并移动，请老师给个代码学习一下

上传具体项目测试。

不然，请自己做交叉统计功能

http://www.foxtable.com/webhelp/scr/2394.htm

下载信息 [文件大小：下载次数： ]
点击浏览该文件:管理项目2021.rar

此主题相关图片如下：企业微信截图_153353318822.png

以下是引用有点甜在2018/8/6 11:56:00的发言：
上传具体项目测试。

已经做了一个测试项目

在窗口1中有个测试统计按钮

[此贴子已经被作者于2018/8/6 13:32:33编辑过]

Dim bd1 As New CrossTableBuilder("统计表1",DataTables("进货单"))
Dim dt1 As fxDataSource
bd1.HGroups.AddDef("型号") '根据型号分组
bd1.VGroups.AddDef("日期",DateGroupEnum.Month,"a_{0}")
bd1.Totals.AddDef("数量","进货_数量") '对数量进行统计
dt1 = bd1.BuildDataSource()

Dim bd2 As New CrossTableBuilder("统计表2",DataTables("销售单"))
Dim dt2 As fxDataSource
bd2.HGroups.AddDef("型号") '根据型号分组
bd2.VGroups.AddDef("日期",DateGroupEnum.Month,"b_{0}")
bd2.Totals.AddDef("数量","销售_数量") '对数量进行统计
dt2 = bd2.BuildDataSource()

dt1.Combine("型号",dt2,"型号") '将销售统计数据组合到进货统计数据
dt1.show("test")
Dim t As Table = Tables("test")
Dim dic1 As new Dictionary(Of String, Col)
Dim dic2 As new Dictionary(Of String, Col)

For Each c As Col In t.Cols
    If c.name.StartsWith("数量_") Then
        If c.Caption.StartsWith("a_") Then
            dic1.add(c.caption.split("_")(1), c)
        Else
            dic2.add(c.caption.split("_")(1), c)
        End If
    End If
Next
Dim idx As Integer = 1
For i As Integer = 1 To 12
    If dic1.ContainsKey(i) Then
        dic1(i).move(idx)
    Else
        t.DataTable.DataCols.Add("aa_" & i, Gettype(Double))
        t.Cols("aa_" & i).move(idx)
        dic1.add(i, t.Cols("aa_" & i))
    End If
    dic1(i).caption = i & "月_进货"
    If dic2.ContainsKey(i) Then
        dic2(i).move(idx+1)
    Else
        t.DataTable.DataCols.Add("bb_" & i, Gettype(Double))
        t.Cols("bb_" & i).move(idx+1)
        dic2.add(i, t.Cols("bb_" & i))
    End If
    dic2(i).caption = i & "月_销售"
    t.DataTable.DataCols.Add("ab_相差" & i, Gettype(Double), "isnull(" & dic1(i).name & ",0)-isnull(" & dic2(i).name & ",0)", i & "月_相差")
    t.Cols("ab_相差" & i).move(idx+2)
    idx = idx + 3
Next

学习学习谢谢了这代码够我研究好一阵了

主题：两个交叉统计都用了日期，请问怎么按照日期合并？