主题：[求助]代码求助！！

For n As Integer = vrs.Count - 1 To 0 Step -1
    Dim Sum5 As Double
    Sum5=Sum5 + vrs(n)("合同总价款")
    If Sum5 > Sum4
        For i As Integer = n To 0 Step -1
            vrs(i)("执行完毕") = "否"
           
        Next
        Exit For
    ElseIf Sum5 = Sum4
        For i As Integer = n+1 To 0 Step -1
            vrs(i)("执行完毕") = "否"
           
        Next
        Exit For
    End If
Next