主题：日期 如何返回 星期几

DataColChanged事件

If e.DataCol.name = "日期" Then
    If e.NewValue <> nothing Then
        e.DataRow("星期") = format(e.NewValue, "dddd")
    Else
        e.DataRow("星期") = Nothing
    End If
End If

写成

If e.datarow.isnull("日期") = False Then