主题：【已解决上传共享】代码按条件分组统计问题

请帮忙给个公式：
表A图号和序号与表B图号和序号相同时，表A准结=表B准结1合计+准结2合计+终结3合计（条件状态列=执行）；
                                                    表A加工=表B加工合计（条件状态列=执行）

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

点击浏览该文件:管理项目4.table

'表ADataColChanged事件代码
Dim dt As DataTable = DataTables("表B")
Dim dr As DataRow = e.DataRow
Dim str As String = "图号 = '" & dr("图号") & "' And 序号 = '" & dr("序号") & "' And 状态 = '执行'"
if e.DataCol.Name = "图号" OrElse e.DataCol.Name = "序号" Then
    Dim r As DataRow = dt.Find(str)
    if r IsNot Nothing Then
        dr ("准结") = dt.Compute("Sum(准结1)",str) + dt.Compute("Sum(准结2)",str) + dt.Compute("Sum(准结3)",str)
        dr("加工") = dt.Compute("Sum(加工)",str)
    End If
End If

太感谢了，传上附件供大家共享

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

点击浏览该文件:管理项目4.table