主题：[求助]同表内字段相同，统计部分字段数据和

如我的项目所示。表B内第六列为部门，所有部门前5列内容都相同。我想求某部门的数据等于其中某几个部门的数据之和。比如部门5的数据1，数据2，数据3等于部门2、部门3、部门4的对应的数据1、数据2、数据3之和，请问如何实现？

补附件

下载信息  [文件大小：   下载次数： ]

点击浏览该文件:会计科目自动填充并实时变化.zip

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

谢谢老师，完美解决问题，非常感谢