主题：怎么更人性化的取值

事件代码：Select Case e.DataCol.Name

    Case "附表编号列","合格数量","结账数量"

        Dim drs As List(of DataRow)

        Dim Filter As String

        Filter = "[_SortKey] >= " & e.DataRow("_SortKey") & " And [附表编号列] = '" & e.DataRow("附表编号列") & "'"

        drs = e.DataTable.Select(Filter)

        For Each dr As DataRow In drs

            Filter = "[_SortKey] <= " & dr("_SortKey") & " And [附表编号列] = '" & dr("附表编号列") & "'"

            Dim Val1 As Double = e.DataTable.Compute("Sum(合格数量)",Filter)

            Dim Val2 As Double = e.DataTable.Compute("Sum(结账数量)",Filter)

            dr("未结数量") = Val1 - Val2

        Next

        If e.DataCol.Name = "附表编号列" AndAlso e.OldValue IsNot Nothing AndAlso e.OldValue <> e.NewValue Then

            Filter = "[_SortKey] > " & e.DataRow("_SortKey") & " And [附表编号列] = '" & e.OldValue & "'"

            drs = e.DataTable.Select(Filter)

            For Each dr As DataRow In drs

                Filter = "[_SortKey] <= " & dr("_SortKey") & " And [附表编号列] = '" & dr("附表编号列") & "'"

                Dim Val1 As Double = e.DataTable.Compute("Sum(合格数量)",Filter)

                Dim Val2 As Double = e.DataTable.Compute("Sum(结账数量)",Filter)

                dr("未结数量") = Val1 - Val2

            Next

        End If

End Select

For Each r As Row In Tables("表A").Rows

    If r("未结数量") = r("合格数量") Then

        r("结账情况")="未结账"

    ElseIf r("未结数量") < r("合格数量") And  r("未结数量")>0 Then

        r("结账情况")="结账中"

ElseIf r("未结数量")=0

        r("结账情况")="已结账"

    End If

Next

但是这个功能只能在第一排实现 有没办法拍都实现  未结数量在不同阶段时 结账情况就跟着发生变化

  发的那个文件相信你也看了，他的功能是个流水账   合格数量-结帐数量=未结数量  

后面还有一个设置就是 当未接数量=合格数量，结账情况显示 未结账

                             当未接数量小于合格数量切等于0  结账情况显示 结账中

                             当未接数量=0的时候显示  已结账

但是这个功能只能在第一行体现  后面的几行就失去了这个功能  

我想怎么让后面的几行也有这个功能  

 兄弟 谢谢你怎么赖心 我的QQ294068455  如果不方便我也可以加你 感谢不进