逻辑陈述:
当收款明细中添加一条记录后,累加该客户的今年收款总额(SUM1),同时在“合同一览表”中找到该客户的今年合同记录并累加“合同价款”(SUM2),,同时找到该客户去年的历史结余的总金额(SUM3)。
定义SUM4=SUM1-SUM3,意思是:收款中先扣除历史结余部分,再计算实际今年收款总额
那么当:sum4 < SUM2(几年实收 小于 今年合同总额时)
找到该客户今年的合同记录,按合同日期降序排列(降序的目的,也就是先满足之前的合同收款,剩下的合同视为没有执行完毕)
倒着累加合同总价款
一旦 累加合同总价款sum5 > sum4(今年实际收款)时
该条记录以及后面的记录的“执行完毕”=“否”
之前的记录的“执行完毕”=“是”
而当 sum5 = sum4(今年实际收款)时
后面的记录的“执行完毕”=“否”
该条及之前的记录“执行完毕”=“是”
ElseIf Sum4= Sum2 Then
所有记录的“执行完毕”=“是”
MessageBox.show("该客户货款已全部结清","提示")
Else(即:Sum4> Sum2)
第一条记录的“执行完毕”=“否”
其他行记录的 “执行完毕”=“是”
MessageBox.show("该客户货款已全部结清,并有结余!","提示")
[此贴子已经被作者于2015/9/17 10:33:11编辑过]