主题：[求助]这样的统计如何实现？[已解决]

分切工piao信息表DataColChanged事件代码

If e.DataCol.name = "分切班组"
    Dim n As Double
    Dim r As DataRow = e.DataRow
    Dim dr As DataRow
    For i As Integer = 1 To 10
        dr = DataTables("成品检验记录表").Find("流水号 = '" & r("流水号") & "' and 不良项目" & i & "_班组 = '"  & r("分切班组") & "'")
        If dr IsNot Nothing Then '如果找到的话
            n = n + dr("不良项目" & i & "_只数")
        End If
    Next
    r("不良只数") = n
End If

你的生产单号应该是唯一的吧？

如果是唯一的，两表以生产单号建立关联，分切工piao信息表为主表，当在子表的不良项目只数列输入数据时，用RaiseDataColChanged重算父行即可。

帮你写了一下

成品检验记录表DataColChanged事件
Select Case e.DataCol.Name
    Case "不良项目1_只数","不良项目2_只数","不良项目3_只数","不良项目4_只数","不良项目5_只数","不良项目6_只数","不良项目7_只数","不良项目8_只数","不良项目9_只数","不良项目10_只数"
        Dim dr As DataRow
        dr = DataTables("分切工piao信息").Find("[生产单号] = '" & e.DataRow("生产单号") & "' And 分切班组 = '" & e.DataRow(e.DataCol.Name.Replace("只数","班组")) & "'")
        If dr IsNot Nothing Then
            DataTables("分切工piao信息").DataCols("分切班组").RaiseDataColChanged(dr)
        End If
End Select

 回复楼上。

 我测试把两段代码分别拷贝进去没有报错啊。

 后台的就这样做。

Select Case e.DataCol.Name
    Case "不良项目1_只数","不良项目2_只数","不良项目3_只数","不良项目4_只数","不良项目5_只数","不良项目6_只数","不良项目7_只数","不良项目8_只数","不良项目9_只数","不良项目10_只数"
        Dim dr As DataRow
        dr = DataTables("分切工piao信息").SQLFind("[生产单号] = '" & e.DataRow("生产单号") & "' And 分切班组 = '" & e.DataRow(e.DataCol.Name.Replace("只数","班组")) & "'")
        If dr IsNot Nothing Then
            Dim n As Double
            For i As Integer = 1 To 10
                n = n + e.DataRow("不良项目" & i & "_只数")
            Next
            dr("不良只数") = n
            dr.Save
        End If
End Select