应该这样吧?
Select Case e.DataCol.Name Case "是否完成" If e.DataRow("是否完成") = True Then e.DataRow("完成时间") = Date.now() Else e.DataRow("完成时间") = Nothing End IfEnd Select