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

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