主题：[求助]根据不同的条件对不同行进行累计

同一天有多个生产计划，对每辆车的发货数量进行累计发货数量的计算，要打印在发货单上

 你累计根据什么计算？

 

 参考流水账 http://www.foxtable.com/help/topics/1572.htm

 

根据不同的生产计划ID ，累计 不同车辆的 本车数量，计算 累计数量

  这个意思？DataCochanged事件

 

Select Case e.DataCol.Name
    Case "生产计划id", "本车数量"
        Dim drs As List(of DataRow)
        Dim Filter As String
        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [生产计划id] = '" & e.DataRow("生产计划id") & "'"
        drs = e.DataTable.Select(Filter)
        For Each dr As DataRow In drs
            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [生产计划id] = '" & dr("生产计划id") & "'"
            Dim Val1 As Double = e.DataTable.Compute("Sum(本车数量)",Filter)
            dr("累计数量") = Val1
        Next
        If e.DataCol.Name = "生产计划id" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then
            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [生产计划id] = '" & e.OldValue & "'"
            drs = e.DataTable.Select(Filter)
            For Each dr As DataRow In drs
                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [生产计划id] = '" & dr("生产计划id") & "'"
                Dim Val1 As Double = e.DataTable.Compute("Sum(本车数量)",Filter)
                dr("累计数量") = Val1
            Next
        End If
End Select

对的，就是这样，非常感谢，有用了！！