主题：[求助]一个出输日期和星期的问题

有两个字段：“日期”和“星期”，我想在输出日期的时候，在星期字段里自动输入相应的星期，请问如何实现？？

谢谢。

DataColChanged事件

Select Case e.DataCol.name
    Case "日期"
        If e.DataRow.IsNull("日期") Then
            e.DataRow("星期") = Nothing
        Else
            e.DataRow("星期") = Format(e.DataRow("日期"),"dddd")
        End If
End Select

虽然看不懂代码，但我还是成功了，谢谢。