主题：单个表格之间的自动计算

Select Case e.DataCol.Name

    Case "分期方式","分期点位"

        If e.DataRow.IsNull("分期方式") = False OrElse e.DataRow.IsNull("分期点位") = False Then

            If e.DataRow("分期方式") = "方式一" Then

                e.DataRow("第一笔金额") = e.DataRow("分期点位") *200

                e.DataRow("第二笔金额") = e.DataRow("分期点位") *300

                '......其它金额类似,自行补上

            Else

                e.DataRow("第一笔金额") = e.DataRow("分期点位") *200

                e.DataRow("第二笔金额") = e.DataRow("分期点位") *300

                '.....其它金额类似

            End If

        End If

End Select