主题：求助：如何根据日期列自动生成星期？

Dim dr As DataRow = e.DataRow

Select Case e.DataCol.Name

    Case "日期"

        If dr("日期") Is Nothing Then

            dr("年") = Nothing

            dr("月") = Nothing

            dr("日") = Nothing

            dr("周次") = Nothing

        Else

            dr("年") = dr("日期").Year

            dr("月") = dr("日期").Month

            dr("日") = dr("日期").day

            dr("周次") = dr("日期").？该填写什么？我写入了week但是不行。

        End If

End Select