比如做一个按钮。

Dim r As Row = Tables("分期表").current

If r("手续费方式") = " 首期 + 平均" Then
    For i As Integer = 1 To r("分期期数")
        If i = 1 Then
            Dim tnr As Row = Tables("首期加平均").addnew
            tnr("账户") = r("账户")
            tnr("日期") = r("分期时间").AddMonths(i-1)
            tnr("收入") = r("分期金额")
        End If
        Dim nr As Row = Tables("首期加平均").addnew
        nr("账户") = r("账户")
        nr("日期") = r("分期时间").AddMonths(i-1)
       
        nr("支出") = r("分期金额") / r("分期期数")
       
        nr = Tables("首期加平均").addnew
        nr("账户") = r("账户")
        Dim d As Date = r("分期时间").AddMonths(i-1)
        nr("日期") = new Date(d.year, d.month, r("账单日"))
       
       
        nr("支出") = r("分期总手续费") / r("分期期数")
       
       
    Next
End If