老师您好！向您请教列中如何显示星期几的问题

表中有“日期”列和“周”列，日期列已在DataRowAdding事件中设置e.DataRow("考勤日期") = Date.Today()代码，周列想显示与日期列当天的星期几，我用下面的的代码：Output.Show("星期" & "日一二三四五六".Chars(Today.DayOfWeek))或

Dim Today As Date = Date.Today

Dim Names As String = "日一二三四五六"

Dim Result As String

Result = "星期" & Names.Chars(Today.DayOfWeek)

Output.Show(Result)

都没能实现”周”列，为当天是星期几，周列设置字符型、日期型都没实现。

敬请老师指导

我在表事件DataColChanged中写入如下代码，也为实现周列填入星期几

Dim dc As DataCol = e.DataCol
Dim dr As DataRow = e.DataRow
If dc.Name = "出勤日期" Then
    If dr.IsNull("出勤日期") Then
        dr("周") = Nothing
    Else
        dr("周") = dr(Format("出勤日期", "dddd"))
    End If
End If