【求助】求助时间指定计算与累加 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

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("还款日"))
    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("还款期间") = d.AddMonths(1)
    Next
Next

没看懂你的需求。你要这样写？

        If d<d1 Then
            ndr("还款期间") = d.AddDays(fdr("还款日")-1).AddMonths(1)
        Else
            ndr("还款期间") = d.AddDays(fdr("还款日")-1)
        End If

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(d1.year, d1.Month, fdr("账单日"))
    For i As Integer = 1 To dr("分期数")
        Dim ndr As DataRow = DataTables("分期明细").find("银行卡号 = '" & dr("银行卡号") & "' and 账单期间 = #" & d1.AddMonths(i) & "#")
        If ndr Is Nothing Then
            ndr = DataTables("分期明细").AddNew
        End If
        ndr("银行卡号") = dr("银行卡号")
        ndr("银行名称")=dr("银行名称")
        ndr("每月金额")=dr("每月金额")
        ndr("每月利息")=dr("每月利息")
        If d<=d1 Then
            ndr("还款期间") = d.AddMonths(i+1)
        Else
            ndr("还款期间") = d.AddMonths(i)
        End If
        ndr("账单期间") = d1.AddMonths(i)
        ndr("分期序列")=0+i
    Next
Next

d.AddDays(fdr("还款日")-1).AddMonths(1)

这句代码的意思是

在d的基础上，先增加 4-1填，然后增加一个月

如果明细表没有记录，就新增一行；如果明细表find到对应的记录，就不会新增行，直接修改find到的那一行。

控制好你find的条件。

[此贴子已经被作者于2017/10/15 22:13:14编辑过]

主题：【求助】求助时间指定 计算与累加

主题：【求助】求助时间指定计算与累加