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

 回复楼上。

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

 后台的就这样做。

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

 代码应该是没有错的。

 因为用的是sqlfind，你需要重新刷新表才能看到新数据的。

 你还要统计全表的数据？

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