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

什么意思。

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

汗，写错了

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