主题：关于成本分摊问题咨询

Select Case e.DataCol.name

    Case "天数","金额"

        Dim m As Double = 0

        If e.DataRow.isnull("天数") = False AndAlso  e.DataRow.isnull("金额") = False  AndAlso e.DataRow("天数") <> 0

            m = e.DataRow.isnull("金额") / e.DataRow.isnull("天数")

        End If

        Dim d1 As Date = e.DataRow("开始日期")

        Dim d2 As Date = e.DataRow("结算日期")

        Do While d1 <= d2

            Dim c As String = Format(d1,"yyyy_MM_dd")

            If e.datacols.contains(c)

                e.DataRow(c) = m

            End If

            d1 = d1.AddDays(1)

        Loop

End Select