主题：请问 这个代码有什么问题？ 新增行的时候 就显示错误

Select Case e.DataCol.Name
    Case "r319", "r318", "r315", "r303", "r301"
        If e.DataRow("r319") = "一次性支付" Then
            e.DataRow("r306") = e.DataRow("r318")
        Else           
            If e.DataRow("r315") = Nothing Then              
                e.DataRow("r306") = Nothing
            Else
                e.DataRow("r306") = e.DataRow("r315").AddMonths(e.DataRow("r303")).AddDays(-1)
            End If
        End If
End Select