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

Dim d1 As Date = Tables("合同").Current("计息开始时间")
Dim d2 As Date = Tables("合同").Current("计息结束时间")
Dim d As Date = d1
Dim ld As Date = d1
Dim m As Integer
Dim cnt As Integer
Select Case Tables("合同").Current("付息方式")
    Case "一月一付"
        m = 1
    Case "二月一付"
        m =2
    Case "三月一付"
        m =3
    Case "四月一付"
        m = 4
    Case "半年一付"
        m =6
    Case "一年一付"
        m =12
End Select
Do While d < d2
    Dim r As Row = Tables("利息").AddNew()
    r("客户编号")=Tables("合同").Current("客户编号")
    r("客户名称")=Tables("合同").current("客户名称")
    r("合同编号")=Tables("合同").current("合同编号")
    r("本金")=Tables("合同").current("本金")
    r("付息时点")=Tables("合同").current("付息时点")
    r("付息方式")=Tables("合同").current("付息方式")
    r("方式")=Tables("合同").current("方式")
    r("利率")=Tables("合同").current("利率")
    r("合同现状")=Tables("合同").current("合同现状")
    r("本期起息日") = d
    d = d.AddMonths(1)
    If d > d2 Then
        d = d2
    End If
    r("本期结息日") = d
    If cnt Mod m = 0 Then
        r("周期起始日") = ld
        ld = d.addmonths(m)
        If ld > d2 Then
            ld = d2
        End If
        r("周期结束日") = ld
    End If
    cnt = cnt +1
Loop

主题：看我看看这个问题