主题：分期付款的问题

已有表A的数据，如何实现表B的自动计算功能，即分期的金额和付款的日期都根据表A中的数据自动计算出来？

 表A

表B

问题已解决了。我写的代码如下，经测试完全达到设计要求：

Select Case e.DataCol.Name
    Case "客户"
        If e.DataRow.IsNull("客户") = False Then '如果已经输入订单编号
            For i As Integer = 1 To e.DataRow("分期次数")
                Dim dr As DataRow = DataTables("表B").AddNew()
                dr("客户") = e.DataRow("客户")
                dr("分期金额") = e.DataRow("成交金额") / e.DataRow("分期次数")
                dr("付款日期")= e.DataRow("成交日期").addmonths(i)
            Next
        End If
End Select

不过还是感谢楼上给了我启发！