主题：[求助]这个要怎么实现

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

点击浏览该文件:管理项目4 - 副本 (3).table

加入客户D,客户E后出现之前第一种情况

汗，写错了

Dim t As Table = Tables("临时表")
Dim mqj As Integer = DataTables("明细表").Compute("max(区间)")
For Each r As Row In t.Rows
    For i As Integer = mqj+1 To 1 Step -1
        If t.Cols.Contains("余额_" & i) Then
            If r("余额_" & i) < 0 Then
                Dim ye As Double = 0
                Dim fe As Double = 0
                For j As Integer = i To 1 Step -1
                    If t.Cols.Contains("余额_" & j) Then
                        ye += r("余额_" & j)
                        fe += r("余额_" & j & "hp")
                        If ye >= 0 OrElse j = 1 Then
                            r("余额_" & j) = ye
                            r("余额_" & j & "hp") = fe
                            For k As Integer = j+1 To i
                                If t.Cols.Contains("余额_" & k) Then
                                    r("余额_" & k) = Nothing
                                    r("余额_" & k & "hp") = Nothing
                                End If
                            Next
                            i = j
                            Exit For
                        End If
                    End If
                Next
            End If
        End If
    Next
Next

实在太感谢了