主题：[求助]到期日期提醒设计，限工作日，如何设计？

Select Case e.DataCol.Name

    Case "申请时间"

        If e.DataRow.IsNull("申请时间") Then

            e.DataRow("到期日期") = Nothing

        Else

Dim d As Date = e.DataRow("申请时间")

Dim i As Integer = 1

Do While i< 6

    d = d.adddays(1)

    If d.DayOfWeek = 6 Then

        d = d.AddDays(2)

    Else If d.DayOfWeek = 0 Then

        d = d.AddDays(1)

    End If

    i += 1

Loop

            e.DataRow("到期日期") = d

        End If

End Select