改成
If e.DataRow("完成") = True Then e.DataRow("完成时间") = Date.TodayElse e.DataRow("完成时间") = NothingEnd If