主题：SQL DATE

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