以文本方式查看主题 -  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp) --  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2) ----  [求助]同表内字段相同，统计部分字段数据和  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=101057)

--  作者：ltty5200 --  发布时间：2017/5/24 11:45:00 --  [求助]同表内字段相同，统计部分字段数据和 如我的项目所示。表B内第六列为部门，所有部门前5列内容都相同。我想求某部门的数据等于其中某几个部门的数据之和。比如部门5的数据1，数据2，数据3等于部门2、部门3、部门4的对应的数据1、数据2、数据3之和，请问如何实现？

--  作者：ltty5200 --  发布时间：2017/5/24 11:47:00 --   补附件  下载信息  [文件大小：   下载次数： ] 点击浏览该文件:会计科目自动填充并实时变化.zip

--  作者：有点色 --  发布时间：2017/5/24 12:01:00 --   Dim bm As String = "部门5" Dim cs() As String = {"数据1", "数据2", "数据3"} Dim dt As DataTable = DataTables("表B") For Each dr As DataRow In dt.Select("部门 = \'" & bm & "\'")     For Each c As String In cs         dr(c) = dt.Compute("sum(" & c & ")", "部门 in (\'部门1\', \'部门2\', \'部门3\', \'部门4\') And 序号 = \'" & dr("序号") & "\'")     Next Next

--  作者：ltty5200 --  发布时间：2017/5/24 16:23:00 --   谢谢老师，完美解决问题，非常感谢