主题：[求助]日期自动计算

If e.DataCol.name = "借款日期" Then
    Dim d As Date = e.newvalue
    If d = Nothing Then
        e.DataRow("还款日期") = Nothing
    Else
        If d.DayOfWeek = 4 Then
            e.DataRow("还款日期") = d.AddDays(3)
        Else If d.DayOfWeek = 5 Then
            e.DataRow("还款日期") = d.AddDays(2)
        Else
            e.DataRow("还款日期") = d.AddDays(1)
        End If
    End If
End If