DataColChanged事件
If e.DataCol.name = "第三列" Then If e.NewValue <> nothing Then e.DataRow("第四列") = format(e.NewValue, "dddd") Else e.DataRow("第四列") = Nothing End IfEnd If