大概是这样:
If e.DataCol.Name = "在职状况" Then If e.DataRow("在职状况") = "离职" Then e.DataRow("离职日期") = Today() Else e.DataRow("离职日期") = Nothing End IfEnd If