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

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

 

日期的条件，参考

 

http://www.foxtable.com/help/topics/2720.htm

 

你可以根据合同日期、客户名称排序啊， 不行，就上传具体例子说明逻辑

 

合同日期 DESC,客户名称

 

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 = vrs.Count - 1 To n step -1
            vrs(i)("执行完毕") = "否"
           
        Next
        Exit For
    ElseIf Sum5 = Sum4
        For i As Integer = vrs.Count - 1 To n-1 step -1
            vrs(i)("执行完毕") = "否"
           
        Next
        Exit For
    End If
Next

If e.DataRow.Isnull("收款总额") = False Then
    Dim Sum1 As Double
    Dim Sum2 As Double
    Dim Sum3 As Double
    Dim y As Integer = Date.Today.Year
    Dim dt1 As New Date(y, 1, 1)
    Dim dt2 As New Date(y, 12, 31)
    Sum1 = DataTables("收款明细表").Compute("Sum(收款总额)", "客户名称='" & e.DataRow("客户名称") & "'and 收款日期 >= #" & dt1 & "# And 收款日期 <= #" & dt2 & "#")
    Sum2 = DataTables("合同一览表").Compute("Sum(合同总价款)", "客户名称='" & e.DataRow("客户名称") & "'and 合同日期 >= #" & dt1 & "# And 合同日期 <= #" & dt2 & "#")
    Sum3=DataTables("历史结余明细").Compute("Sum(金额)", " 客户名称= '" & e.DataRow("客户名称") & "'and 年份='" & Date.now.year -1 & "'")
    MessageBox.show(Sum1)
    MessageBox.show(Sum2)
    MessageBox.show(Sum3)
    Dim Sum4 =Sum1-Sum3
    Dim vrs As List(Of DataRow)
    vrs = DataTables("合同一览表").Select("[客户名称]='" & e.DataRow("客户名称") & "'","合同日期 DESC")
    If Sum4< Sum2 Then
       
        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 = vrs.Count - 1 To 0 Step -1
                    If i > n Then
                        vrs(i)("执行完毕") = "是"
                    Else
                        vrs(i)("执行完毕") = "否"
                    End If
                Next
                Exit For
            ElseIf Sum5 = Sum4
                For i As Integer = vrs.Count - 1 To 0 Step -1
                    If i >= n Then
                        vrs(i)("执行完毕") = "是"
                    Else
                        vrs(i)("执行完毕") = "否"
                    End If
                Next
                Exit For
            End If
        Next
    ElseIf Sum4= Sum2 Then
        MessageBox.show("该客户货款已全部结清","提示")
    Else
        For i As Integer = vrs.Count - 1 To 0 Step -1
            If i >= vrs.Count - 1 Then
                vrs(i)("执行完毕") = "是"
            Else
                vrs(i)("执行完毕") = "否"
            End If
        Next
        MessageBox.show("该客户货款已全部结清,并有结余!","提示")
    End If
End If

        For i As Integer = vrs.Count - 1 To 0 Step -1
                vrs(i)("执行完毕") = "是"       
        Next

不明白你的意思i，逻辑没有错。

"日期 desc, 订单号 desc"