- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- 通过筛选分别对A、B数据表做了统计表1和统计表2，用什么方法能使临时表--统计表1和统计表2组合（拼接）在同一张表上？ (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=128226)
-- 发布时间：2018/12/1 15:55:00
-- 通过筛选分别对A、B数据表做了统计表1和统计表2，用什么方法能使临时表--统计表1和统计表2组合（拼接）在同一张表上？
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
-- 发布时间：2018/12/1 16:36:00
--
http://foxtable.com/bbs/dispbbs.asp?BoardID=2&ID=128201&skin=0
不会就上传具体实例