通过筛选分别对A、B数据表做了统计表1和统计表2，用什么方法能使临时表--统计表1和统计表2组合（拼接）在同一张表上？ - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Dim Filter1 As String

With e.Form.Controls("StartDate")

If .Value IsNot Nothing Then

If Filter1 >"" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "来电时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("EndDate")

If .Value IsNot Nothing Then

If Filter1 >"" Then

Filter1 = Filter1 & " And "

End If

Filter1 = Filter1 & "来电时间 <= #" & .Value & "#"

End If

End With

If Filter1 > "" Then

Tables("管网管理所抢修热线").Filter = Filter1

End If

Dim Filter2 As String

With e.Form.Controls("StartDate")

If .Value IsNot Nothing Then

If Filter2 >"" Then

Filter2 = Filter2 & " And "

End If

Filter2 = Filter2 & "来电时间 >= #" & .Value & "#"

End If

End With

With e.Form.Controls("EndDate")

If .Value IsNot Nothing Then

If Filter2 >"" Then

Filter2 = Filter2 & " And "

End If

Filter2 = Filter2 & "来电时间 <= #" & .Value & "#"

End If

End With

If Filter1 > "" Then

Tables("用户管理水表热线").Filter = Filter2

End If

Dim a As New GroupTableBuilder("统计表1",DataTables("管网管理所抢修热线"))

a.filter = Tables("管网管理所抢修热线").Filter

a.Groups.AddDef("来电时间",DateGroupEnum.None)

a.Totals.AddDef("来电信息",AggregateEnum.Count,"接单数量_管网A单") '对数量进行统计

a.Build '生成统计表

MainTable = Tables("统计表1")

Dim b As New GroupTableBuilder("统计表2",DataTables("用户管理水表热线"))

b.filter = Tables("用户管理水表热线").Filter

b.Groups.AddDef("来电时间",DateGroupEnum.None)

b.Totals.AddDef("来电信息",AggregateEnum.Count,"接单数量_表务B单") '对数量进行统计

b.Build '生成统计表

MainTable = Tables("统计表2") '打开生成的统计表

此主题相关图片如下：统计表2.png

此主题相关图片如下：统计表1.png

主题：通过筛选分别对A、B数据表做了统计表1和统计表2，用什么方法能使临时表--统计表1和统计表2组合（拼接）在同一张表上？