经过扩展后代码成为如下：【想实现还款日如果小于账单日时，还款期间则加一个月】
此主题相关图片如下：22.png
For Each dr As DataRow In DataTables("账单分期").Select("")
Dim fdr As DataRow = DataTables("银行卡信息").find("银行卡号 = '" & dr("银行卡号") & "'")
Dim d As Date = dr("还款期间")
d = new Date(d.year, d.Month, fdr("还款日"))
Dim d1 As Date = dr("账单期间")
d1 = new Date(d.year, d.Month, fdr("账单日"))
For i As Integer = 1 To dr("分期数")
Dim ndr As DataRow = DataTables("分期明细").find("银行卡号 = '" & dr("银行卡号") & "' and 还款期间 = #" & d.AddMonths(i) & "#")
If ndr Is Nothing Then
ndr = DataTables("分期明细").AddNew
End If
ndr("银行卡号") = dr("银行卡号")
ndr("银行名称")=dr("银行名称")
ndr("每月金额")=dr("每月金额")
ndr("每月利息")=dr("每月利息")
ndr("还款期间") = d.AddMonths(i)
ndr("账单期间") = d1.AddMonths(i)
ndr("分期序列")=0+i
End If
Next
Next
代码运行后错误如下：
此主题相关图片如下：12.png
麻烦修整一下红色部分代码
If d<d1 Then
ndr("还款期间") = d.AddDays(d("还款日")-1).AddMonths(1)
Else
ndr("还款期间") = d.AddDays(d("还款日")-1)
End If
[此贴子已经被作者于2017/10/15 21:25:15编辑过]
加好友 
发短信
Post By：2017/10/15 17:44:00 [显示全部帖子]
此主题相关图片如下：11111.jpg
