- Foxtable(狐表) (http://foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://foxtable.com/bbs/list.asp?boardid=2)
---- [求助]如何筛选小计后的数据写到其他表里 (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=125796)
-- 发布时间：2018/10/7 13:50:00
-- [求助]如何筛选小计后的数据写到其他表里
老师些，本人小白一枚，我通过筛选后再进行小计数量，如何把得到的小计写入表B对应的单元格里呀？
此主题相关图片如下：meid2jijvc((2piq@nr5i.png
此主题相关图片如下：t6reg(}{si6m0u$mbece%(5.png
此主题相关图片如下：nc(}zccpde$))h_7596f2i.png
Dim Filter As String
With e.Form.Controls("StartDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "系统建立 >= #" & .Value & "#"
End If
End With
With e.Form.Controls("EndDate")
If .Value IsNot Nothing Then
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "系统建立 <= #" & .Value & "#"
End If
End With
If e.Form.Controls("rdigh").Checked = True
If Filter >"" Then
Filter = Filter & " And "
End If
Filter = Filter & "排除 = false"
End If
If Filter > "" Then
Tables("表A").Filter = Filter
End If
Dim t As Table = Tables("表A")
Dim g As Subtotalgroup
t.SubtotalGroups.Clear()
t.GroupAboveData = True
t.TreeVisible = False
t.SpillNode = True
g = New Subtotalgroup
g.Aggregate = AggregateEnum.Count
g.GroupOn = "二级机构"
g.TotalOn = "二级机构"
g.Caption = "{0} 小计"
t.SubtotalGroups.Add(g)
t.Subtotal()
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:管理项目2.table |
[此贴子已经被作者于2018/10/7 13:53:52编辑过]
-- 发布时间：2018/10/7 14:29:00
--
首先这个逻辑有问题，表B是按照一级进行分类，表A却是按照二级进行汇总，结果无法对应
统计的代码大概可以参考这样
For Each dr As DataRow In DataTables("表B").Select("一级机构 is not null")
dr("小计") = Tables("表A").Compute("Count(一级机构)","一级机构=\'" & dr("一级机构") &"\'")
Next
-- 发布时间：2018/10/7 14:40:00
--
不好意思，是我搞错了，是对二级机构时间小计，也可以用这样的代码吗？
-- 发布时间：2018/10/7 14:44:00
--
可以，放到统计按钮最后即可
For Each dr As DataRow In DataTables("表B").Select("二级机构 is not null")
dr("小计") = Tables("表A").Compute("Count(二级机构)","二级机构=\'" & dr("二级机构") &"\'")
Next
-- 发布时间：2018/10/7 14:46:00
--
谢谢，已搞定