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

第一个表格是通过交叉统计表得到的，但是要进一步得到下面表格要代码要怎么写了

此主题相关图片如下：例图.png

 上传具体例子。

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

点击浏览该文件:管理项目4.table

在线等，求老师帮忙！！

Dim t As Table = Tables("临时表")
For Each r As Row In t.Rows
    For i As Integer = 6 To 1 Step -1
        If r("余额_" & i) < 0 Then
            Dim ye As Double = 0
            Dim fe As Double = 0
            For j As Integer = i To 1 Step -1
                ye += r("余额_" & j)
                fe += r("余额_" & j & "hp")
                If ye >= 0 Then
                    r("余额_" & j) = ye
                    r("余额_" & j & "hp") = fe
                    For k As Integer = j+1 To i
                        r("余额_" & k) = Nothing
                        r("余额_" & k & "hp") = Nothing
                    Next
                    i = j
                    Exit For
                End If
            Next
        End If
    Next
Next

谢谢老师！

 

去掉客户C的数据，问题又出来了....

什么意思。

 

Dim t As Table = Tables("临时表")
For y As Integer = t.Rows.Count - 1 To 0 Step -1
    Dim r As Row = t.Rows(y)
    Dim flag As Boolean = True
    For i As Integer = 6 To 1 Step -1
        If r("余额_" & i) < 0 Then
            flag = False
            Dim ye As Double = 0
            Dim fe As Double = 0
            For j As Integer = i To 1 Step -1
                ye += r("余额_" & j)
                fe += r("余额_" & j & "hp")
                If ye >= 0 Then
                    r("余额_" & j) = ye
                    r("余额_" & j & "hp") = fe
                    For k As Integer = j+1 To i
                        r("余额_" & k) = Nothing
                        r("余额_" & k & "hp") = Nothing
                    Next
                    i = j
                    Exit For
                End If
            Next
        End If
    Next
    If flag Then
        r.delete
    End If
Next

明细表中，删除客户C的数据后，执行以上代码结果又不对了..

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 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 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