还款计划 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → 还款计划

共有2237人关注过本帖树形打印复制链接主题：还款计划

有点蓝

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/10 9:02:00 [显示全部帖子]

根据“还款限期”排序，然后遍历取值，如果还款金额小于待还，则执行"已还金额"+本次还款金，退出循环，否则继续循环下一行判断

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/10 11:49:00 [显示全部帖子]

dim v1 as double =e.Form.Controls("hkjeNumericComboBox").value

Dim lst1 As New List(of DataRow)

For Each dr As DataRow In DataTables("应付交易明细").select("","还款限期")

if dr("最近一笔还款金额") - dr("已还金额") > v1

dr("已还金额") = dr("已还金额") + v1

exit for

else

v1 = v1 - dr("已还金额")

lst1.add(dr)

end if

For Each dr As DataRow In lst1

dr.Delete

有点蓝

小大 3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：107304 积分：545781 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2020/3/10 14:15:00 [显示全部帖子]

我测试没有问题。代码是按照还款限期，从小到大处理的

主题：还款计划