生产批号，实际产量，累计产量，自动实际产量统计在累计产量，下面截图和代码
此主题相关图片如下：统计截图.png

Select Case e.DataCol.Name
     Case "生产批号", "实际产量"
         Dim dr As DataRow
         Dim mr As DataRow = e.DataRow
         Dim drs As List(Of DataRow)
         dr = e.DataTable.Find("[_SortKey]< " & mr("_SortKey") & " And [生产批号] = \'" & mr("生产批号") & "\'", "[_SortKey] Desc")
         If dr Is Nothing Then
             mr("累计产量") = mr("实际产量") + mr("累计产量")
             dr = mr
         End If
         drs = e.DataTable.Select("[_SortKey]>= " & dr("_SortKey") & " And [生产批号] = \'" & dr("生产批号") & "\'", "[_SortKey]")
         For i As Integer = 1 To drs.Count - 1
              drs(i)("累计产量") = drs(i - 1)("累计产量") + drs(i)("实际产量")
         Next
         If e.DataCol.Name = "生产批号" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
             dr = e.DataTable.Find("[_SortKey]< " & mr("_SortKey") & " And [生产批号] = \'" & e.OldValue & "\'", "[_SortKey] Desc")
             If dr Is Nothing Then
                dr = e.DataTable.Find("[生产批号]= \'" & e.OldValue & "\'", "[_SortKey]")
                If dr IsNot Nothing Then
                    dr("累计产量") = dr("实际产量") + dr("累计产量")
                 End If
             End If
             If dr IsNot Nothing Then
                drs = e.DataTable.Select("[_SortKey]>= " & dr("_SortKey") & " And [生产批号] = \'" & dr("生产批号") & "\'", "[_SortKey]")
                For i As Integer = 1 To drs.Count - 1
                     drs(i)("累计产量") = drs(i - 1)("累计产量") + drs(i)("实际产量")
                 Next
             End If
         End If
End Select

累计数量不正确，老师帮忙看看，谢谢！

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

点击浏览该文件:单条件累计.zip